Fixing everything for mandatory stack effects

[factor.git] / extra / turing / turing.factor

diff --git a/extra/turing/turing.factor b/extra/turing/turing.factor
index 0dc90d8cf5a5219e57daa5afd83d2d3fb2896be9..f5b510237bd6954f05918d66673cb1c0038c944c 100644 (file)
--- a/extra/turing/turing.factor
+++ b/extra/turing/turing.factor
@@ -59,12 +59,12 @@ SYMBOL: tape
     dup state-dir position [ + ] change
     state-next state set ;
 
-: c
+: c ( -- )
     #! Print current turing machine state.
     state get .
     tape get .
     2 position get 2 * + CHAR: \s <string> write "^" print ;
 
-: n
+: n ( -- )
     #! Do one step and print new state.
     turing-step c ;