compile-1 -> compile-call

db4
Doug Coleman 2008-01-12 19:49:36 -10:00
parent b2871a8b51
commit bdb160dd6c
1 changed files with 1 additions and 1 deletions

View File

@ -22,7 +22,7 @@ TUPLE: random-tester-error ;
datastack clone after set
clear
before get [ ] each
quot get [ compile-1 ] [ errored on ] recover ;
quot get [ compile-call ] [ errored on ] recover ;
: do-test ! ( data... quot -- )
.s flush test-compiler