17 lines
278 B
Factor
17 lines
278 B
Factor
|
IN: test
|
||
|
|
USE: compiler
|
||
|
|
USE: namespaces
|
||
|
|
USE: stdio
|
||
|
|
USE: stack
|
||
|
|
USE: test
|
||
|
|
USE: words
|
||
|
|
|
||
|
|
: must-compile ( word -- )
|
||
|
|
"compile" get [
|
||
|
|
"Checking if " write dup write " was compiled" print
|
||
|
|
dup compile
|
||
|
|
worddef compiled? assert
|
||
|
|
] [
|
||
|
|
drop
|
||
|
|
] ifte ;
|