2004-10-23 01:15:06 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
|
|
|
USE: parser
|
|
|
|
USE: test
|
2004-10-27 23:13:00 -04:00
|
|
|
USE: words
|
|
|
|
USE: strings
|
2004-12-10 19:29:07 -05:00
|
|
|
USE: kernel
|
2004-10-23 01:15:06 -04:00
|
|
|
|
|
|
|
DEFER: foo
|
|
|
|
|
|
|
|
": foo 2 2 + . ; parsing" eval
|
|
|
|
|
|
|
|
[ [ ] ] [ "foo" parse ] unit-test
|
|
|
|
|
|
|
|
": foo 2 2 + . ;" eval
|
|
|
|
|
|
|
|
[ [ foo ] ] [ "foo" parse ] unit-test
|
2004-10-27 23:13:00 -04:00
|
|
|
|
|
|
|
! Test > 1 ( ) comment; only the first one should be used.
|
|
|
|
[ t ] [
|
2005-02-07 18:42:33 -05:00
|
|
|
"a" ": foo ( a ) ( b ) ;" parse drop word
|
|
|
|
"stack-effect" word-property str-contains?
|
2004-10-27 23:13:00 -04:00
|
|
|
] unit-test
|