.

original commit: 3cd3bde9d0bd1a90f3a9dc5fde06ff8d59ee152f
1999-01-15 23:23:05 +00:00 · 1999-01-15 23:23:05 +00:00 · 3d243cf37c
commit 3d243cf37c
parent f3feb7f1ba
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@ -291,7 +291,7 @@
 	     (if (pair? (cdr l))
 		 (last-pair (cdr l))
 		 l)
-	     (error 'last-pair "argument not a pair")))))
+	     (raise-type-error 'last-pair "pair" l)))))

    (define cons? (lambda (x) (pair? x)))
    (define empty? (lambda (x) (null? x)))