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 ;
|
] with-file-vocabs ;
|
||||||
|
|
||||||
: parsing-file ( file -- )
|
: 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 )
|
: filter-moved ( set1 set2 -- seq )
|
||||||
swap diff members [
|
swap diff members [
|
||||||
|
|
Loading…
Reference in New Issue