diff options
Diffstat (limited to 'forth/test/core.fr')
| -rw-r--r-- | forth/test/core.fr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/forth/test/core.fr b/forth/test/core.fr index 2d8b8e4..d2724e1 100644 --- a/forth/test/core.fr +++ b/forth/test/core.fr @@ -647,8 +647,8 @@ T{ : GT2 ['] GT1 ; IMMEDIATE -> }T T{ GT2 EXECUTE -> 123 }T HERE 3 C, CHAR G C, CHAR T C, CHAR 1 C, CONSTANT GT1STRING HERE 3 C, CHAR G C, CHAR T C, CHAR 2 C, CONSTANT GT2STRING -\ T{ GT1STRING FIND -> ' GT1 -1 }T -\ T{ GT2STRING FIND -> ' GT2 1 }T +T{ GT1STRING FIND -> ' GT1 -1 }T +T{ GT2STRING FIND -> ' GT2 1 }T \ ( HOW TO SEARCH FOR NON-EXISTENT WORD? ) T{ : GT3 GT2 LITERAL ; -> }T T{ GT3 -> ' GT1 }T |