2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2005-01-14 14:56:19 -05:00
|
|
|
USE: test
|
|
|
|
USE: kernel
|
|
|
|
USE: compiler
|
|
|
|
USE: inference
|
|
|
|
USE: words
|
2006-03-27 02:34:07 -05:00
|
|
|
USE: sequences
|
2005-01-14 14:56:19 -05:00
|
|
|
|
2005-09-24 15:21:17 -04:00
|
|
|
: fie [ ] [ ] if ;
|
2005-08-11 19:08:22 -04:00
|
|
|
|
2005-12-21 02:43:41 -05:00
|
|
|
[ ] [ \ fie dup word-def dataflow linearize drop ] unit-test
|
2005-08-11 19:08:22 -04:00
|
|
|
|
2006-03-27 02:34:07 -05:00
|
|
|
: foo all-words [ drop ] each ;
|
2005-01-14 14:56:19 -05:00
|
|
|
|
2005-12-21 02:43:41 -05:00
|
|
|
[ ] [ \ foo dup word-def dataflow linearize drop ] unit-test
|