From 24d345cdd97d7712f2f5153d1d6e688cbb7aaa84 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 29 Apr 2014 13:20:33 -0700
Subject: [PATCH] source-files: this looks cleaner.

---
 core/source-files/source-files.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/source-files/source-files.factor b/core/source-files/source-files.factor
index 5bc6dffbda..1a2bfa7459 100644
--- 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 ;