Fixes bug 176710: Strange error message for cadr.

2007-12-18 11:32:13 -05:00 · 2007-12-18 11:32:13 -05:00 · 16c52974da
parent 356a809970
commit 16c52974da
2 changed files with 4 additions and 2 deletions
--- a/scheme/ikarus.pairs.ss
+++ b/scheme/ikarus.pairs.ss
@ -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)))
         ...)]))

--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1256
+1258