core/parser/notes/notes.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: namespaces kernel source-files lexer accessors io math.parser ;
   4 IN: parser.notes
   5
   6 SYMBOL: parser-quiet?
   7
   8 t parser-quiet? set-global
   9
  10 : note. ( str -- )
  11     parser-quiet? get [
  12         file get [ path>> write ":" write ] when*
  13         lexer get [ line>> number>string write ": " write ] when*
  14         "Note:" print dup print
  15     ] unless drop ;