2005-02-14 22:15:02 -05:00
|
|
|
IN: scratchpad
|
2005-02-22 23:07:47 -05:00
|
|
|
USING: generic kernel lists math memory words ;
|
2005-02-14 22:15:02 -05:00
|
|
|
|
|
|
|
num-types [
|
|
|
|
[
|
2005-02-22 23:07:47 -05:00
|
|
|
builtin-type [
|
2005-03-05 14:45:23 -05:00
|
|
|
"predicate" word-prop instances [
|
2005-02-22 23:07:47 -05:00
|
|
|
class drop
|
|
|
|
] each
|
|
|
|
] when*
|
2005-02-14 22:15:02 -05:00
|
|
|
] keep
|
|
|
|
] repeat
|