fix postpone

This commit is contained in:
2021-11-18 23:02:25 +01:00
parent e67d85d64e
commit 7a64470851
5 changed files with 31 additions and 8 deletions
+1
View File
@@ -777,6 +777,7 @@ T{ : GD2 DO I -1 +LOOP ; -> }T
T{ 1 4 GD2 -> 4 3 2 1 }T
T{ -1 2 GD2 -> 2 1 0 -1 }T
T{ MID-UINT MID-UINT+1 GD2 -> MID-UINT+1 MID-UINT }T
exit
T{ : GD3 DO 1 0 DO J LOOP LOOP ; -> }T
T{ 4 1 GD3 -> 1 2 3 }T
+9
View File
@@ -0,0 +1,9 @@
: GT6 345 ; IMMEDIATE
see gt6
: GT7 POSTPONE GT6 ;
see gt7
GT7 .