debugging
This commit is contained in:
@@ -870,8 +870,10 @@ 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
|
||||
|
||||
Reference in New Issue
Block a user