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

2014-11-23 16:56:49 -08:00 · 2014-11-23 16:56:49 -08:00 · 10cf6e3dd2
parent 34a197248c
commit 10cf6e3dd2
1 changed files with 1 additions and 1 deletions
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@ -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 [