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

Rename words

db4
Slava Pestov 2008-11-22 03:38:00 -06:00
parent 208a54e08e
commit 958ba935f6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/prettyprint/prettyprint.factor
View File

@ -44,7 +44,7 @@ IN: prettyprint
] with-pprint nl ] with-pprint nl
] unless-empty ; ] unless-empty ;
: vocabs. ( in use -- ) : use/in. ( in use -- )
dupd remove [ { "syntax" "scratchpad" } member? not ] filter dupd remove [ { "syntax" "scratchpad" } member? not ] filter
use. in. ; use. in. ;
@ -53,7 +53,7 @@ IN: prettyprint
[ [ words>> eq? nip ] with assoc-find 2drop ] curry map sift ; [ [ words>> eq? nip ] with assoc-find 2drop ] curry map sift ;
: prelude. ( -- ) : prelude. ( -- )
in get use get vocab-names vocabs. ; in get use get vocab-names use/in. ;
[ [
nl nl
@ -65,7 +65,7 @@ IN: prettyprint
] print-use-hook set-global ] print-use-hook set-global
: with-use ( obj quot -- ) : with-use ( obj quot -- )
make-pprint vocabs. do-pprint ; inline make-pprint use/in. do-pprint ; inline
: with-in ( obj quot -- ) : with-in ( obj quot -- )
make-pprint drop [ write-in bl ] when* do-pprint ; inline make-pprint drop [ write-in bl ] when* do-pprint ; inline