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

source-files: this looks cleaner.

db4
John Benediktsson 2014-04-29 13:20:33 -07:00
parent ca6cf294fc
commit 24d345cdd9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,8 +39,8 @@ ERROR: invalid-source-file-path path ;
: reset-checksums ( -- ) : reset-checksums ( -- )
source-files get [ source-files get [
swap dup exists? [ over exists? [
utf8 file-lines swap record-checksum [ utf8 file-lines ] dip record-checksum
] [ 2drop ] if ] [ 2drop ] if
] assoc-each ; ] assoc-each ;