From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 09:14:38 +0000 (-0800)
Subject: Rely on error:wrong-type-argument to use default caller appropriately.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~100
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c722158e7de8520318fb52e794c827dfa662a88;p=mit-scheme.git

Rely on error:wrong-type-argument to use default caller appropriately.
---

diff --git a/src/runtime/sysmac.scm b/src/runtime/sysmac.scm
index bf6606945..b63ab8fa5 100644
--- a/src/runtime/sysmac.scm
+++ b/src/runtime/sysmac.scm
@@ -90,11 +90,7 @@ USA.
 		      (,(close-syntax e-name environment) OBJECT CALLER))
 		  OBJECT)
 		(DEFINE (,e-name OBJECT #!OPTIONAL CALLER)
-		  (ERROR:WRONG-TYPE-ARGUMENT OBJECT
-					     ,desc
-					     (IF (DEFAULT-OBJECT? CALLER)
-						 #F
-						 CALLER))))))
+		  (ERROR:WRONG-TYPE-ARGUMENT OBJECT ,desc CALLER)))))
 	 (ill-formed-syntax form)))))
 
 (define-syntax define-deferred