From 3d243cf37cac11e5333a31862a7fb1a276f8cc02 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 15 Jan 1999 23:23:05 +0000
Subject: [PATCH] .

original commit: 3cd3bde9d0bd1a90f3a9dc5fde06ff8d59ee152f
---
 collects/mzlib/functior.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index ff6b21a..423d71c 100644
--- 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)))