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