From 2c722158e7de8520318fb52e794c827dfa662a88 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 01:14:38 -0800
Subject: [PATCH] Rely on error:wrong-type-argument to use default caller
 appropriately.

---
 src/runtime/sysmac.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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
-- 
2.25.1