vocabs.prettyprint: lookup syntax vocab only once in pprint-using.
parent
bcc78ab220
commit
8a4a86db64
|
@ -19,7 +19,7 @@ IN: vocabs.prettyprint
|
||||||
[ vocab-name ] sort-with ;
|
[ vocab-name ] sort-with ;
|
||||||
|
|
||||||
: pprint-using ( seq -- )
|
: pprint-using ( seq -- )
|
||||||
[ "syntax" lookup-vocab = ] reject
|
"syntax" lookup-vocab '[ _ = ] reject
|
||||||
sort-vocabs [
|
sort-vocabs [
|
||||||
\ USING: pprint-word
|
\ USING: pprint-word
|
||||||
[ pprint-vocab ] each
|
[ pprint-vocab ] each
|
||||||
|
|
Loading…
Reference in New Issue