fix fucked execptr after pushing input

2021-11-22 22:58:46 +01:00
parent 7bc96a8f58
commit b7443ca9d4
5 changed files with 17 additions and 9 deletions
@@ -870,10 +870,8 @@ T{ 2 SCANS !
 345 RESCAN?
 -> 345 345 }T

-1 debug
 : GS2  5 SCANS ! S" 123 RESCAN?" EVALUATE ;
 T{ GS2 -> 123 123 123 123 123 }T
-xx

 : GS3 WORD COUNT SWAP C@ ;
 T{ BL GS3 HELLO -> 5 CHAR H }T
@@ -0,0 +1,7 @@
+VARIABLE SCANS
+: RESCAN?  -1 SCANS +! SCANS @ IF 0 >IN ! THEN ;
+
+1 debug
+: GS2 1 SCANS ! S" 123 RESCAN?" EVALUATE ;
+GS2
+??