Two small fixes

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

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 ;

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