Fixing compiler test
parent
ef63333980
commit
f655a25762
|
@ -77,3 +77,14 @@ nl
|
|||
[ compiled-usages recompile ] recompile-hook set-global
|
||||
|
||||
" done" print flush
|
||||
|
||||
! Load empty test vocabs
|
||||
USE: compiler.test.curry
|
||||
USE: compiler.test.float
|
||||
USE: compiler.test.intrinsics
|
||||
USE: compiler.test.redefine
|
||||
USE: compiler.test.simple
|
||||
USE: compiler.test.stack-trace
|
||||
USE: compiler.test.templates
|
||||
USE: compiler.test.templates-early
|
||||
USE: compiler.test.tuples
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
USING: compiler tools.test kernel kernel.private
|
||||
combinators.private math.private math combinators strings
|
||||
alien arrays ;
|
||||
alien arrays memory ;
|
||||
IN: temporary
|
||||
|
||||
! Test empty word
|
||||
|
@ -48,6 +48,8 @@ IN: temporary
|
|||
[ 4 1 3 ] [ 0 [ { [ bar 1 ] [ 3 1 ] } dispatch 3 ] compile-call ] unit-test
|
||||
[ 3 1 3 ] [ 1 [ { [ bar 1 ] [ 3 1 ] } dispatch 3 ] compile-call ] unit-test
|
||||
|
||||
[ 2 3 ] [ 1 [ { [ code-gc 1 ] [ code-gc 2 ] } dispatch 3 ] compile-call ] unit-test
|
||||
|
||||
! Labels
|
||||
|
||||
: recursive ( ? -- ) [ f recursive ] when ; inline
|
||||
|
|
Loading…
Reference in New Issue