forgot test.factor
parent
fc1d635773
commit
678faa0f41
|
@ -0,0 +1,16 @@
|
||||||
|
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 ;
|
Loading…
Reference in New Issue