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

View File

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