steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

If 'search' was called outside of the parser, note. might be called, which would fail if no lexer was set

db4
Slava Pestov 2008-11-21 00:18:25 -06:00
parent 9d68d5882a
commit 1addde1567
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/parser/parser-tests.factor
View File

@ -496,3 +496,5 @@ DEFER: blah
[ "IN: parser.tests USE: kernel TUPLE: blah < tuple ; : blah ; TUPLE: blah < tuple ; : blah ;" eval ] [ "IN: parser.tests USE: kernel TUPLE: blah < tuple ; : blah ; TUPLE: blah < tuple ; : blah ;" eval ]
[ error>> error>> def>> \ blah eq? ] must-fail-with [ error>> error>> def>> \ blah eq? ] must-fail-with
[ ] [ f lexer set f file set "Hello world" note. ] unit-test

2
core/parser/parser.factor
View File

@ -25,7 +25,7 @@ t parser-notes set-global
: note. ( str -- ) : note. ( str -- )
parser-notes? [ parser-notes? [
file get [ path>> write ":" write ] when* file get [ path>> write ":" write ] when*
lexer get line>> number>string write ": " write lexer get [ line>> number>string write ": " write ] when*
"Note: " write dup print "Note: " write dup print
] when drop ; ] when drop ;