library/test/prettyprint.factor

   1 IN: scratchpad
   2 USE: lists
   3 USE: prettyprint
   4 USE: stdio
   5 USE: test
   6 USE: vocabularies
   7
   8 "Checking prettyprinter." print
   9
  10 ! This was broken due to uninterned words having a null vocabulary.
  11 [ #:uninterned ] prettyprint
  12
  13 ! Now do a little benchmark
  14 [ vocabs [ words [ see ] each ] each ] time