Fix definition of 2! in Forth

diff --git a/preForth/forth.simple b/preForth/forth.simple
index 3ed8039..c328a8b 100644 (file)
--- a/preForth/forth.simple
+++ b/preForth/forth.simple
@@ -38,8 +38,8 @@
 : 2@ ( addr -- x1 x2 )
    dup cell+ @ swap @ ;
 
-: 2! ( x1 x2 -- addr )
-   swap over cell+ ! ! ;
+: 2! ( x1 x2 addr -- )
+   swap over ! cell+ ! ;
 
 \ number output
 \ -------------