Fixes bug 176710: Strange error message for cadr.

2007-12-18 11:32:13 -05:00
parent 356a809970
commit 16c52974da
2 changed files with 4 additions and 2 deletions
@@ -65,7 +65,9 @@
       (begin
         (define name*
           (lambda (x) 
-             ((cxr (die 'name* "invalid list structure" x) ops** ...)
+             ((cxr (die 'name* 
+                     "argument does not have required pair structure" x) 
+                   ops** ...)
              x)))
         ...)]))

@@ -1 +1 @@
-1256
+1258