parser: Print "Loading" message as a comment for homoiconicity. See #1221.
parent
34a197248c
commit
10cf6e3dd2
|
@ -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 [
|
||||
|
|
Loading…
Reference in New Issue