forgot test.factor

cvs
Slava Pestov 2004-08-05 03:16:14 +00:00
parent fc1d635773
commit 678faa0f41
1 changed files with 16 additions and 0 deletions

View File

@ -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 ;