15 lines
286 B
Factor
15 lines
286 B
Factor
IN: scratchpad
|
|
USE: lists
|
|
USE: prettyprint
|
|
USE: stdio
|
|
USE: test
|
|
USE: vocabularies
|
|
|
|
"Checking prettyprinter." print
|
|
|
|
! This was broken due to uninterned words having a null vocabulary.
|
|
[ #:uninterned ] prettyprint
|
|
|
|
! Now do a little benchmark
|
|
[ vocabs [ words [ see ] each ] each ] time
|