Ticket #902: coops-generic-procedure?.patch

File coops-generic-procedure?.patch, 411 bytes (added by megane, 9 years ago)
  • coops.scm

     
    478478  (and (procedure? x)
    479479       (##sys#lambda-decoration
    480480        x
    481         generic-procedure-instance-slot?)))
     481        generic-procedure-instance-slot?)
     482       #t))
    482483
    483484(define (generic-procedure-instance-slot? x)
    484485  (and (pair? x) (eq? '##coops#generic (car x))))