new accessors

littledan · Aug 31, 2008 · 754d68f · 754d68f
1 parent 98c2548
commit 754d68f
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/extra/turing/turing.factor b/extra/turing/turing.factor
@@ -1,6 +1,6 @@
-IN: turing
 USING: arrays assocs io kernel math namespaces
-prettyprint sequences strings vectors words ;
+prettyprint sequences strings vectors words accessors ;
+IN: turing
 
 ! A turing machine simulator.
 
@@ -55,9 +55,9 @@ SYMBOL: tape
 : turing-step ( -- )
     #! Do one step of the turing machine.
     next-state
-    dup state-sym set-sym
-    dup state-dir position [ + ] change
-    state-next state set ;
+    dup sym>> set-sym
+    dup dir>> position [ + ] change
+    next>> state set ;
 
 : c ( -- )
     #! Print current turing machine state.