Bug fixes

diff --git a/core/continuations/continuations-tests.factor b/core/continuations/continuations-tests.factor
index b0c216e82f91fa7a77b3f1ec42dbb97589230f2f..996d17077c0af2e3f87d6fcfc585346e892b555d 100755 (executable)
--- a/core/continuations/continuations-tests.factor
+++ b/core/continuations/continuations-tests.factor
@@ -39,7 +39,7 @@ IN: continuations.tests
 
 "!!! The following error is part of the test" print
 
-[ ] [ [ [ "2 car" ] eval ] [ print-error ] recover ] unit-test
+[ ] [ [ [ "2 car" ] eval ] try ] unit-test
 
 [ f throw ] must-fail
 

diff --git a/core/debugger/debugger.factor b/core/debugger/debugger.factor
index 64a59fb9be03ed48085347d40e16ac6a91baa908..e5dd02c25e8d6233a81a175ad2e0f2922a651642 100755 (executable)
--- a/core/debugger/debugger.factor
+++ b/core/debugger/debugger.factor
@@ -64,17 +64,13 @@ M: string error. print ;
     [ global [ "Error in print-error!" print drop ] bind ]
     recover ;
 
-SYMBOL: error-hook
-
-[
-    print-error
-    restarts.
-    nl
-    "Type :help for debugging help." print flush
-] error-hook set-global
-
 : try ( quot -- )
-    [ error-hook get call ] recover ;
+    [
+        print-error
+        restarts.
+        nl
+        "Type :help for debugging help." print flush
+    ] recover ;
 
 ERROR: assert got expect ;
 

diff --git a/core/listener/listener-tests.factor b/core/listener/listener-tests.factor
index 2c05c049a77d0b1398d0113bcfe62126765cba08..24449049e02fbf706a7c4bf25c11226a7a575220 100755 (executable)
--- a/core/listener/listener-tests.factor
+++ b/core/listener/listener-tests.factor
@@ -51,6 +51,6 @@ IN: listener.tests
 [
     [ ] [
         "IN: listener.tests : hello\n\"world\" ;" parse-interactive
-    drop
+        drop
     ] unit-test
 ] with-file-vocabs

diff --git a/core/listener/listener.factor b/core/listener/listener.factor
index ff172ccda4ebc061a40837e7895b1fa46626ed6e..cc4580c2cf9b59cecf73e2f7e210c73752e9a20d 100755 (executable)
--- a/core/listener/listener.factor
+++ b/core/listener/listener.factor
@@ -43,9 +43,11 @@ M: object stream-read-quot
     "( " in get " )" 3append
     H{ { background { 1 0.7 0.7 1 } } } format bl flush ;
 
+SYMBOL: error-hook
+
 : listen ( -- )
     listener-hook get call prompt.
-    [ read-quot [ try ] [ bye ] if* ]
+    [ read-quot [ [ error-hook get call ] recover ] [ bye ] if* ]
     [
         dup parse-error? [
             error-hook get call

diff --git a/extra/gap-buffer/tags.txt b/extra/gap-buffer/tags.txt
index fd3a2d285ada1995d8d0a244ffb5254cceafc7b6..b5e44711345a2ec40e4b941bccbdf15452da3aef 100644 (file)
--- a/extra/gap-buffer/tags.txt
+++ b/extra/gap-buffer/tags.txt
@@ -1,2 +1,2 @@
 collections
-collections sequences
+sequences

diff --git a/extra/ui/tools/listener/listener.factor b/extra/ui/tools/listener/listener.factor
index 8fed776d5b06d7d0e37387aa5007da3868ad766c..484b0008613f931337d83ee5537e1dec4e8795bb 100755 (executable)
--- a/extra/ui/tools/listener/listener.factor
+++ b/extra/ui/tools/listener/listener.factor
@@ -128,7 +128,7 @@ TUPLE: stack-display ;
     stack-display new
     g workspace-listener swap [
         dup <toolbar> f track,
-        listener-gadget-stack [ stack. ]
+        stack>> [ [ stack. ] curry try ]
         t "Data stack" <labelled-pane> 1 track,
     ] { 0 1 } build-track ;