fixed WHILE, REPEAT using bb4wforth's fix.

clstrfsck · Aug 17, 2010 · a67d543 · a67d543
1 parent daad021
commit a67d543
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/jonesforth.f b/jonesforth.f
@@ -188,12 +188,12 @@
 : WHILE IMMEDIATE
  ['] 0BRANCH , \ compile 0BRANCH
  DP @ \ save location of the offset2 on the stack
+ SWAP \ get the original offset (from BEGIN)
  0 , \ compile a dummy offset2
 ;
 
 : REPEAT IMMEDIATE
  ['] BRANCH , \ compile BRANCH
- SWAP \ get the original offset (from BEGIN)
  DP @ - , \ and compile it after BRANCH
  DUP
  DP @ SWAP - \ calculate the offset2