compile-1 -> compile-call
parent
b2871a8b51
commit
bdb160dd6c
|
@ -22,7 +22,7 @@ TUPLE: random-tester-error ;
|
||||||
datastack clone after set
|
datastack clone after set
|
||||||
clear
|
clear
|
||||||
before get [ ] each
|
before get [ ] each
|
||||||
quot get [ compile-1 ] [ errored on ] recover ;
|
quot get [ compile-call ] [ errored on ] recover ;
|
||||||
|
|
||||||
: do-test ! ( data... quot -- )
|
: do-test ! ( data... quot -- )
|
||||||
.s flush test-compiler
|
.s flush test-compiler
|
||||||
|
|
Loading…
Reference in New Issue