add abort to unknown prompt test

* libguile/control.c (scm_c_abort): Change error string if a prompt
  isn't found.

* test-suite/tests/control.test ("abort to unknown prompt"): New test.

diff --git a/libguile/control.c b/libguile/control.c
index 78a3256..bb35fdf 100644 (file)
--- a/libguile/control.c
+++ b/libguile/control.c
@@ -207,7 +207,7 @@ scm_c_abort (SCM vm, SCM tag, size_t n, SCM *argv, scm_t_int64 cookie)
   
   /* If we didn't find anything, raise an error. */
   if (scm_is_false (prompt))
-    scm_misc_error ("abort", "abort to unknown tag", scm_list_1 (tag));
+    scm_misc_error ("abort", "Abort to unknown prompt", scm_list_1 (tag));
 
   cont = reify_partial_continuation (vm, prompt, winds, cookie);
 

diff --git a/test-suite/tests/control.test b/test-suite/tests/control.test
index 9937910..b3ab707 100644 (file)
--- a/test-suite/tests/control.test
+++ b/test-suite/tests/control.test
@@ -221,3 +221,7 @@
                    (lambda (k x) x))
                 (lambda (k) k))))
       (k))))
+
+(with-test-prefix "abort to unknown prompt"
+  (pass-if-exception "foo" '(misc-error . "^Abort to unknown prompt")
+                     (abort-to-prompt 'does-not-exist)))