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

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index f1385440342fce4135d8287337bb2af39c8eeecd..0087b00de7fd689a03c703199d4a1b1eaa7c939d 100644 (file)
--- 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 [