source-files: this looks cleaner.

2014-04-29 13:20:33 -07:00 · 2014-04-29 13:20:33 -07:00 · 24d345cdd9
parent ca6cf294fc
commit 24d345cdd9
1 changed files with 2 additions and 2 deletions
--- a/core/source-files/source-files.factor
+++ b/core/source-files/source-files.factor
@ -39,8 +39,8 @@ ERROR: invalid-source-file-path path ;

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