steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "parser: split parse-file into (parse-file)." 

This reverts commit 18bbe6292a.
db4
John Benediktsson 2015-08-15 16:05:41 -07:00
parent 0f68d4c051
commit 18e557785f
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
core/parser/parser.factor
View File

@ -222,17 +222,12 @@ print-use-hook [ [ ] ] initialize
: parse-file-restarts ( path -- restarts ) : parse-file-restarts ( path -- restarts )
"Load " " again" surround t 2array 1array ; "Load " " again" surround t 2array 1array ;
: (parse-file) ( path -- quot )
[
dup [
utf8 file-lines dup parse-fresh
[ nip ] [ finish-parsing ] 2bi
forget-smudged
] with-source-file
] with-compilation-unit ;
: parse-file ( path -- quot ) : parse-file ( path -- quot )
[ (parse-file) ] [ [
[ parsing-file ] keep
[ utf8 <file-reader> ] keep
parse-stream
] [
over parse-file-restarts rethrow-restarts over parse-file-restarts rethrow-restarts
drop parse-file drop parse-file
] recover ; ] recover ;