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

Minor tweaks

darcs
slava 2006-07-14 09:37:00 +00:00
parent 75456f99de
commit 4d7acd57e7
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/compiler/compiler.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2004, 2006 Slava Pestov. ! Copyright (C) 2004, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: compiler IN: compiler
USING: errors hashtables inference io kernel math USING: errors hashtables inference io kernel math namespaces
namespaces optimizer prettyprint sequences test words ; optimizer prettyprint sequences test threads words ;
: (compile) ( word -- ) : (compile) ( word -- )
dup specialized-def dataflow optimize generate ; dup specialized-def dataflow optimize generate ;
@ -27,7 +27,7 @@ namespaces optimizer prettyprint sequences test words ;
: compile-vocabs ( vocabs -- ) : compile-vocabs ( vocabs -- )
[ words ] map concat [ words ] map concat
dup [ f "no-effect" set-word-prop ] each dup [ f "no-effect" set-word-prop ] each
[ try-compile ] each ; [ try-compile yield ] each ;
: compile-all ( -- ) vocabs compile-vocabs ; : compile-all ( -- ) vocabs compile-vocabs ;

4
library/test/test.factor
View File

@ -11,7 +11,9 @@ M: assert summary drop "Assertion failed" ;
: assert= ( a b -- ) 2dup = [ 2drop ] [ <assert> throw ] if ; : assert= ( a b -- ) 2dup = [ 2drop ] [ <assert> throw ] if ;
: print-test ( input output -- ) "--> " write 2array . flush ; : print-test ( input output -- )
"----> Quotation: " write .
"Expected output: " write . flush ;
: benchmark ( quot -- gctime runtime ) : benchmark ( quot -- gctime runtime )
millis >r gc-time >r call gc-time r> - millis r> - ; millis >r gc-time >r call gc-time r> - millis r> - ;