source-files: this looks cleaner.

diff --git a/core/source-files/source-files.factor b/core/source-files/source-files.factor
index 5bc6dffbda7157540636459b078398e56d9d5030..1a2bfa7459771005f993fd8f63964fd35ccbbfb9 100644 (file)
--- 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 ;