diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-04 07:02:22 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-04 07:02:22 -0500 |
| commit | a51428cff0b7d16e7e0b5e5bfd05c47ab55e4fa2 (patch) | |
| tree | f29699ece46316faab4786d8618da34581059231 /test | |
| parent | 0a294fa8cc8f9f5c491a3aec4ff416a455d6ebef (diff) | |
evaluate complete
Diffstat (limited to 'test')
| -rw-r--r-- | test/core.fr | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/test/core.fr b/test/core.fr index 9b866a2..2d8b8e4 100644 --- a/test/core.fr +++ b/test/core.fr @@ -776,23 +776,23 @@ T{ ' W1 >BODY -> HERE }T T{ W1 -> HERE 1 + }T T{ W1 -> HERE 2 + }T -\ \ ------------------------------------------------------------------------ -\ TESTING EVALUATE -\ -\ : GE1 S" 123" ; IMMEDIATE -\ : GE2 S" 123 1+" ; IMMEDIATE -\ : GE3 S" : GE4 345 ;" ; -\ : GE5 EVALUATE ; IMMEDIATE -\ -\ T{ GE1 EVALUATE -> 123 }T ( TEST EVALUATE IN INTERP. STATE ) -\ T{ GE2 EVALUATE -> 124 }T -\ T{ GE3 EVALUATE -> }T -\ T{ GE4 -> 345 }T -\ -\ T{ : GE6 GE1 GE5 ; -> }T ( TEST EVALUATE IN COMPILE STATE ) -\ T{ GE6 -> 123 }T -\ T{ : GE7 GE2 GE5 ; -> }T -\ T{ GE7 -> 124 }T +\ ------------------------------------------------------------------------ +." TESTING EVALUATE" CR + +: GE1 S" 123" ; IMMEDIATE +: GE2 S" 123 1+" ; IMMEDIATE +: GE3 S" : GE4 345 ;" ; +: GE5 EVALUATE ; IMMEDIATE + +T{ GE1 EVALUATE -> 123 }T ( TEST EVALUATE IN INTERP. STATE ) +T{ GE2 EVALUATE -> 124 }T +T{ GE3 EVALUATE -> }T +T{ GE4 -> 345 }T + +T{ : GE6 GE1 GE5 ; -> }T ( TEST EVALUATE IN COMPILE STATE ) +T{ GE6 -> 123 }T +T{ : GE7 GE2 GE5 ; -> }T +T{ GE7 -> 124 }T \ ------------------------------------------------------------------------ ." TESTING SOURCE >IN WORD" CR |