From eab654bb8a98f7dfbeb4e8917ca8ea9f151dfd6b Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Thu, 31 Jan 2008 11:58:17 -0600
Subject: [PATCH] Changing names of words

---
 extra/boids/ui/ui.factor        | 20 ++++++++++----------
 extra/namespaces/lib/lib.factor |  2 +-
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/extra/boids/ui/ui.factor b/extra/boids/ui/ui.factor
index 6d04a4d623..b545f41060 100644
--- a/extra/boids/ui/ui.factor
+++ b/extra/boids/ui/ui.factor
@@ -145,20 +145,20 @@ VARS: population-label cohesion-label alignment-label separation-label ;
   slate> over @center grid-add
 
   H{ } clone
-    T{ key-down f f "1" } C[ drop randomize    ] put-hash
-    T{ key-down f f "2" } C[ drop sub-10-boids ] put-hash
-    T{ key-down f f "3" } C[ drop add-10-boids ] put-hash
+    T{ key-down f f "1" } C[ drop randomize    ] put-at
+    T{ key-down f f "2" } C[ drop sub-10-boids ] put-at
+    T{ key-down f f "3" } C[ drop add-10-boids ] put-at
 
-    T{ key-down f f "q" } C[ drop inc-cohesion-weight ] put-hash
-    T{ key-down f f "a" } C[ drop dec-cohesion-weight ] put-hash
+    T{ key-down f f "q" } C[ drop inc-cohesion-weight ] put-at
+    T{ key-down f f "a" } C[ drop dec-cohesion-weight ] put-at
 
-    T{ key-down f f "w" } C[ drop inc-alignment-weight ] put-hash
-    T{ key-down f f "s" } C[ drop dec-alignment-weight ] put-hash
+    T{ key-down f f "w" } C[ drop inc-alignment-weight ] put-at
+    T{ key-down f f "s" } C[ drop dec-alignment-weight ] put-at
 
-    T{ key-down f f "e" } C[ drop inc-separation-weight ] put-hash
-    T{ key-down f f "d" } C[ drop dec-separation-weight ] put-hash
+    T{ key-down f f "e" } C[ drop inc-separation-weight ] put-at
+    T{ key-down f f "d" } C[ drop dec-separation-weight ] put-at
 
-    T{ key-down f f "ESC" } C[ drop toggle-loop ] put-hash
+    T{ key-down f f "ESC" } C[ drop toggle-loop ] put-at
   <handler> tuck set-gadget-delegate "Boids" open-window ;
 
 : boids-window ( -- ) [ [ boids-window* ] with-scope ] with-ui ;
diff --git a/extra/namespaces/lib/lib.factor b/extra/namespaces/lib/lib.factor
index 6e66119cb0..528e770558 100644
--- a/extra/namespaces/lib/lib.factor
+++ b/extra/namespaces/lib/lib.factor
@@ -16,4 +16,4 @@ IN: namespaces.lib
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: set* ( val var -- ) namestack* set-hash-stack ;
+: set* ( val var -- ) namestack* set-assoc-stack ;