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

diff --git a/src/runtime/sysmac.scm b/src/runtime/sysmac.scm
index bf66069453575ed3e4cc1a0d1f18024732b18517..b63ab8fa5e0ade2d7144d15bdaccccf30b86ac38 100644 (file)
--- 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