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 -- )
[
<pprinter> pprinter set pprint* end-block
<pprinter> pprinter set call end-blocks
pprinter get do-pprint
] with-scope ; inline

View File

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