diff options
Diffstat (limited to 'test-suite/tests/eval.test')
-rw-r--r-- | test-suite/tests/eval.test | 4 |
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 '())) |