summaryrefslogtreecommitdiff
path: root/test-suite/tests/eval.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/eval.test')
-rw-r--r--test-suite/tests/eval.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index a428a0778..074b9b136 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -51,7 +51,7 @@
(equal? bar '(#t . #(#t)))))
(pass-if-exception "circular lists in forms"
- exception:bad-expression
+ exception:wrong-type-arg
(let ((foo (list #f)))
(set-cdr! foo foo)
(copy-tree foo))))
@@ -157,7 +157,7 @@
(with-test-prefix "scm_tc7_subr_2o"
;; prior to guile 1.6.9 and 1.8.1 this called the function with
- ;; SCM_UNDEFIEND, which in the case of make-vector resulted in
+ ;; SCM_UNDEFINED, which in the case of make-vector resulted in
;; wrong-type-arg, instead of the intended wrong-num-args
(pass-if-exception "0 args" exception:wrong-num-args
(apply make-vector '()))