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

File ensure-generic-procedure-fix.diff, 665 bytes (added by Moritz Heidkamp, 9 years ago)
  • coops.scm

     
    610610(define-syntax (ensure-generic-procedure x r c)
    611611  (let* ((args (cadr x))
    612612         (name (caddr x))
    613          (rname
    614           (if (and (pair? name)
    615                    (= (length name) 2)
    616                    (c 'setter (car name)))
    617               (cadr name)
    618               name))
     613         (rname
     614          (strip-syntax
     615           (if (and (pair? name)
     616                    (= (length name) 2)
     617                    (c 'setter (car name)))
     618               (cadr name)
     619               name)))
    619620         (m (##sys#current-module))
    620621         (exists
    621622          (and (symbol? rname)