diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-11 16:11:24 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-11 16:11:24 -0500 |
| commit | f186ff2a22459ebf2fd83b63b66370d018dcbbef (patch) | |
| tree | 2b563accc27a0855dc2089e347798df351cc0e7a /forth | |
| parent | 400e277b0c111739ea4ed426328cbcc4472744df (diff) | |
find
Diffstat (limited to 'forth')
| -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 |