Ticket #1158: anaphora.diff

File anaphora.diff, 401 bytes (added by Kooda, 11 years ago)

Patch to fix the problem

  • anaphora.scm

    old new  
    198198              (else
    199199                `(let ((,it ,(car args)))
    200200                   (if ,it
    201                      ,(loop (cdr args))))))))))))
     201                     ,(loop (cdr args))
     202                     #f))))))))))
    202203
    203204;;; (nand name . args)
    204205;;; ------------------