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

Fixing parsing bug

db4
Daniel Ehrenberg 2008-01-09 20:13:59 -06:00
parent ec79a765a3
commit 5dc9841312
2 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/parser/parser.factor
View File

@ -399,18 +399,6 @@ SYMBOL: bootstrap-syntax
"Loading " write <pathname> . flush "Loading " write <pathname> . flush
] if ; ] if ;
: no-parse-hook ( quot -- )
>r f parse-hook r> with-variable do-parse-hook ; inline
: start-parsing ( stream name -- )
H{ } clone new-definitions set
dup [
source-file
dup file set
source-file-definitions clone old-definitions set
] [ drop ] if
lines \ lines set ;
: smudged-usage-warning ( usages removed -- ) : smudged-usage-warning ( usages removed -- )
parser-notes? [ parser-notes? [
"Warning: the following definitions were removed from sources," print "Warning: the following definitions were removed from sources," print

4
core/source-files/source-files.factor
View File

@ -33,8 +33,8 @@ uses definitions ;
dup source-file-path ?resource-path file-modified dup source-file-path ?resource-path file-modified
swap set-source-file-modified ; swap set-source-file-modified ;
: record-checksum ( source-file lines -- ) : record-checksum ( lines source-file -- )
lines-crc32 swap set-source-file-checksum ; swap lines-crc32 swap set-source-file-checksum ;
: (xref-source) ( source-file -- pathname uses ) : (xref-source) ( source-file -- pathname uses )
dup source-file-path <pathname> swap source-file-uses dup source-file-path <pathname> swap source-file-uses