core/parser/notes/notes.factor

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