parent
e59e605357
commit
51e8a735b5
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue