diff options
Diffstat (limited to 'test/core.fr')
| -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 |