From d3891657c1f27b74dc3ec5402dd2b56af3adcab4 Mon Sep 17 00:00:00 2001
From: "Brian T. Rice" <briantrice@gmail.com>
Date: Thu, 3 Feb 2011 21:04:35 -0800
Subject: [PATCH] Switched ::= back to := for some persistent structures that
 seem to really need replaceability over time/reboots.

---
 src/lib/image.slate | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/lib/image.slate b/src/lib/image.slate
index 87e8828..3037b60 100644
--- a/src/lib/image.slate
+++ b/src/lib/image.slate
@@ -15,8 +15,8 @@ performed."
   filename 
     ifNil: [filename := i filename]
     ifNotNil: [i filename := filename].
-  (File newNamed: filename) exists
-    ifTrue: [warn: 'Saving the image over an existing file: ' ; filename printString ; '.'].
+  (File newNamed: filename) exists ifTrue:
+    [warn: 'Saving the image over an existing file: ' ; filename printString ; '.'].
   i handleSave.
   (isRestarted ::= lobby saveImageNamed: (i filename as: String)) ifTrue:
     [startupREPL ifTrue: [repl reset. Abort signal].
@@ -44,10 +44,10 @@ i@Image die
 "Dictionaries holding actions (blocks taking no argument)
 to be performed under various scenarios. Identified by
 a descriptive Symbol."
-Image startupActions ::= Dictionary new.
-Image argumentActions ::= Dictionary new.
-Image shutdownActions ::= Dictionary new.
-Image saveActions ::= Dictionary new.
+Image startupActions := Dictionary new.
+Image argumentActions := Dictionary new.
+Image shutdownActions := Dictionary new.
+Image saveActions := Dictionary new.
 
 "these directory functions need image to be defined"
 dir@(LogicalDirectory traits) registerStartupHandler
@@ -56,9 +56,9 @@ dir@(LogicalDirectory traits) registerStartupHandler
     on: Error do: [| :c | c return: Nil]
 ].
 
-Directory traits Current ::= LogicalDirectory newResolving: [Directory current].
+Directory traits Current := LogicalDirectory newResolving: [Directory current].
 
-Directory traits Home ::= LogicalDirectory newResolving: [Directory home].
+Directory traits Home := LogicalDirectory newResolving: [Directory home].
 
 i@Image handleStartup
 "Perform each action/block in the startupActions attribute."
@@ -90,8 +90,8 @@ Image shutdownActions at: #ExternalResource :=
   [ExternalResource schedule reverseDo: #shutdown `er].
 
 "Refresh the standard LogicalDirectory objects."
-{Directory Home. Directory Current} do:
-  [| :dir | Image startupActions at: dir := [dir locator := Nil]].
+[| :dir | Image startupActions at: dir := [dir locator := Nil]]
+  for: {Directory Home. Directory Current}.
 
 i@Image objectCount
 "The number of heap-allocated objects in the current Image."
@@ -112,8 +112,8 @@ Image startupActions at: #StartupArguments :=
 Image argumentActions at: #StartupArguments :=
   [Image handleStandardCommandOptions].
 
-Image StartupArgumentHandlers ::= Dictionary new.
-Image StartupArgumentDocs ::= Dictionary new.
+Image StartupArgumentHandlers := Dictionary new.
+Image StartupArgumentDocs := Dictionary new.
 
 i@Image handleArgument: optionString with: handler
 [i StartupArgumentHandlers at: optionString := handler].
-- 
2.11.4.GIT