From b77d8b28a4a10a80313591ab896fb20c6c37c8f8 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 30 Nov 2006 03:02:42 +0000
Subject: [PATCH] record-file only called after a successful parse

---
 TODO.txt                        | 3 +--
 core/syntax/parse-stream.factor | 6 ++++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/TODO.txt b/TODO.txt
index 8750945396..064ba7cf40 100644
--- a/TODO.txt
+++ b/TODO.txt
@@ -1,7 +1,5 @@
 + 0.87:
 
-- macbook mouse tracking is off
-- xml: chars>entities got broken
 - parse errors should be shown in a popup
 - growable data heap
 
@@ -16,6 +14,7 @@
 
 + 0.88:
 
+- use crc32 instead of modification date in reload-modules
 - models: don't do redundant work
 - menu Command: quots look dumb
 - top level window positioning on ms windows
diff --git a/core/syntax/parse-stream.factor b/core/syntax/parse-stream.factor
index eb67449adb..85791f704d 100644
--- a/core/syntax/parse-stream.factor
+++ b/core/syntax/parse-stream.factor
@@ -66,8 +66,10 @@ SYMBOL: parse-hook
 
 : parse-file ( file -- quot )
     [
-        dup parsing-file dup record-file
-        [ ?resource-path <file-reader> ] keep parse-stream
+        [ parsing-file ] keep
+        [ ?resource-path <file-reader> ] keep
+        [ parse-stream ] keep
+        record-file
     ] [
         over parse-file-restarts condition drop parse-file
     ] recover ;