cvs 0.78
Slava Pestov 2005-09-06 18:52:06 +00:00
parent e59e605357
commit 51e8a735b5
2 changed files with 4 additions and 13 deletions

View File

@ -310,7 +310,7 @@ M: wrapper pprint* ( wrapper -- )
: with-pprint ( quot -- ) : with-pprint ( quot -- )
[ [
<pprinter> pprinter set pprint* end-block <pprinter> pprinter set call end-blocks
pprinter get do-pprint pprinter get do-pprint
] with-scope ; inline ] with-scope ; inline

View File

@ -1,16 +1,7 @@
IN: temporary IN: temporary
USING: generic kernel-internals strings vectors ; USING: assembler compiler compiler-backend generic inference
USE: test kernel kernel-internals lists math prettyprint sequences strings
USE: assembler test vectors words ;
USE: compiler
USE: compiler-frontend
USE: inference
USE: words
USE: math
USE: kernel
USE: lists
USE: sequences
USE: prettyprint
! Some dataflow tests ! Some dataflow tests
! [ 3 ] [ 1 2 3 (subst-value) ] unit-test ! [ 3 ] [ 1 2 3 (subst-value) ] unit-test