Ticket #1040: ensure-generic-procedure-fix.diff

coops.scm

@@ -610 +610 @@
 (define-syntax (ensure-generic-procedure x r c)
   (let* ((args (cadr x))
          (name (caddr x))
-         (rname 
-          (if (and (pair? name)
-                   (= (length name) 2)
-                   (c 'setter (car name))) 
-              (cadr name)
-              name))
+         (rname
+          (strip-syntax
+           (if (and (pair? name)
+                    (= (length name) 2)
+                    (c 'setter (car name))) 
+               (cadr name)
+               name)))
          (m (##sys#current-module))
          (exists
           (and (symbol? rname)