From 3375feb8fa91b4e2803dec87f92919b19473f636 Mon Sep 17 00:00:00 2001
From: Ulrich Hoffmann <uho@xlerb.de>
Date: Sat, 26 Oct 2019 14:30:27 +0200
Subject: [PATCH] Fix definition of 2! in Forth

---
 preForth/forth.simple | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/preForth/forth.simple b/preForth/forth.simple
index 3ed8039..c328a8b 100644
--- 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
 \ -------------
-- 
2.34.1