Fixing compiler test

db4
Slava Pestov 2008-02-09 21:08:47 -06:00
parent ef63333980
commit f655a25762
2 changed files with 14 additions and 1 deletions

View File

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

View File

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