parser: Print "Loading" message as a comment for homoiconicity. See #1221.

db4
Doug Coleman 2014-11-23 16:56:49 -08:00
parent 34a197248c
commit 10cf6e3dd2
1 changed files with 1 additions and 1 deletions

View File

@ -164,7 +164,7 @@ print-use-hook [ [ ] ] initialize
] with-file-vocabs ;
: parsing-file ( file -- )
parser-quiet? get [ drop ] [ "Loading " write print flush ] if ;
parser-quiet? get [ drop ] [ "! Loading " write print flush ] if ;
: filter-moved ( set1 set2 -- seq )
swap diff members [