fix coercion to r6rs &undefined condition

svn: r9226
2008-04-09 21:23:25 +00:00 · 2008-04-09 21:23:25 +00:00 · 5ec2b40957
commit 5ec2b40957
parent e4190d765f
1 changed files with 1 additions and 1 deletions
--- a/collects/rnrs/conditions-6.ss
+++ b/collects/rnrs/conditions-6.ss
@ -133,7 +133,7 @@
                      #f))))
         null)
     (if (exn:fail:contract:variable? c)
-         (make-undefined-violation)
+         (list (make-undefined-violation))
         null))]
   [else (raise-type-error 'simple-conditions
                           "condition"