From: slava <slava@factorcode.org>
Date: Thu, 19 Oct 2006 02:50:37 +0000 (+0000)
Subject: Two small fixes
X-Git-Tag: 0.85~18
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=200d247711a9d57fb78dea7648735b91f2871e5b

Two small fixes
---

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 1f966c1c36..82af07ab57 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,8 +1,12 @@
 - live search: timer delay would be nice
 - help responder has no way to access { "foo" "bar" }
 - httpd search tools
-- condition rethrow restarts broken
-- menus broken (right click, left click another word)
+- hashed generic method dispatch
+- fix this:
+  [ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113 ] .
+[ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113 
+]
+- prettier printing of hashtable literals, alists, cond, ...
 
 + ui:
 
@@ -67,12 +71,6 @@
 
 + misc:
 
-- hashed generic method dispatch
-- fix this:
-  [ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113 ] .
-[ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113 
-]
-- prettier printing of hashtable literals, alists, cond, ...
 - minor GC takes too long now, we should card mark code heap
 - buffer-ptr should be an alien
 - swap nappend ==> nappend
diff --git a/library/syntax/parse-stream.factor b/library/syntax/parse-stream.factor
index 159e24b7fa..b8d6b47d6c 100644
--- a/library/syntax/parse-stream.factor
+++ b/library/syntax/parse-stream.factor
@@ -77,7 +77,8 @@ SYMBOL: parse-hook
         dup parsing-file dup record-file
         [ ?resource-path <file-reader> ] keep parse-stream
     ] [
-        over parse-file-restarts condition drop parse-file
+        over parse-file-restarts <condition> rethrow drop
+        parse-file
     ] recover ;
 
 : run-file ( file -- ) parse-file call ;
diff --git a/library/ui/gadgets/menus.factor b/library/ui/gadgets/menus.factor
index 267cb18fea..eae3bb24fa 100644
--- a/library/ui/gadgets/menus.factor
+++ b/library/ui/gadgets/menus.factor
@@ -24,7 +24,7 @@ M: menu-glass layout* gadget-child prefer ;
     ] if ;
 
 \ menu-glass H{
-    { T{ button-up } [ find-world hide-glass ] }
+    { T{ button-up } [ find-world [ hide-glass ] when* ] }
     { T{ drag } [ retarget-drag ] }
 } set-gestures