steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/bootstrap/compiler/compiler.factor
View File

@ -77,3 +77,14 @@ nl
[ compiled-usages recompile ] recompile-hook set-global [ compiled-usages recompile ] recompile-hook set-global
" done" print flush " 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

4
core/compiler/test/simple/simple-tests.factor
View File

@ -1,6 +1,6 @@
USING: compiler tools.test kernel kernel.private USING: compiler tools.test kernel kernel.private
combinators.private math.private math combinators strings combinators.private math.private math combinators strings
alien arrays ; alien arrays memory ;
IN: temporary IN: temporary
! Test empty word ! Test empty word
@ -48,6 +48,8 @@ IN: temporary
[ 4 1 3 ] [ 0 [ { [ bar 1 ] [ 3 1 ] } dispatch 3 ] compile-call ] unit-test [ 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 [ 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 ! Labels
: recursive ( ? -- ) [ f recursive ] when ; inline : recursive ( ? -- ) [ f recursive ] when ; inline