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

Fix performance prbolem

db4
Slava Pestov 2008-01-12 17:25:29 -05:00
parent b2a2767c95
commit 4373cb1630
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/parser/parser.factor
View File

@ -437,7 +437,7 @@ SYMBOL: bootstrap-syntax
smudged-usage forget-all smudged-usage forget-all
over empty? [ 2dup smudged-usage-warning ] unless 2drop ; over empty? [ 2dup smudged-usage-warning ] unless 2drop ;
: finish-parsing ( contents quot -- ) : finish-parsing ( lines quot -- )
file get file get
[ record-form ] keep [ record-form ] keep
[ record-modified ] keep [ record-modified ] keep
@ -447,8 +447,7 @@ SYMBOL: bootstrap-syntax
: parse-stream ( stream name -- quot ) : parse-stream ( stream name -- quot )
[ [
[ [
contents lines dup parse-fresh
dup string-lines parse-fresh
tuck finish-parsing tuck finish-parsing
forget-smudged forget-smudged
] with-source-file ] with-source-file