about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorNaren Ratan <narenratan@gmail.com>2019-12-11 22:15:15 +0000
committerNaren Ratan <narenratan@gmail.com>2019-12-11 22:15:15 +0000
commit40eb87453e3b248610d375eaefb07bf367224201 (patch)
tree2a8285e97780f82b49066b48b2d6a0079516377d
parentb31dcba4ea3314343aece10e794ca12df94c78b1 (diff)
downloadjonesforth_arm64_apl-40eb87453e3b248610d375eaefb07bf367224201.tar.gz
Fix (( ))
-rw-r--r--jonesforth.f4
1 files changed, 2 insertions, 2 deletions
diff --git a/jonesforth.f b/jonesforth.f
index 18c3500..ce9449a 100644
--- a/jonesforth.f
+++ b/jonesforth.f
@@ -36,8 +36,8 @@
 : ∥) I ' BNZ , H - , ;                  / ( A ∥) does A until false /
 : 1∥) I ' BR , H - , ;                  / ( A 1∥) does A indefinitely /
 
-: (( I ' n! , [COMP] ( ;                / n (( A )) does A n times /
-: )) I ' n- , ' n , [COMP] ∥) ;
+: (( I ' n! , [COMP] ( ' n , [COMP] ∥ ; / n (( A )) does A n times /
+: )) I ' n- , [COMP] ) ;
 
 : ∇ I S { [COMP] ; | : } ;              / ∇ starts and ends definitions /