Ticket #880: assume-fix.patch

File assume-fix.patch, 525 bytes (added by megane, 10 years ago)
  • chicken-syntax.scm

    diff --git a/chicken-syntax.scm b/chicken-syntax.scm
    index 968aab2..e9d2755 100644
    a b  
    11881188
    11891189(##sys#extend-macro-environment
    11901190 'assume '()
    1191  (##sys#er-transformer
    1192   (syntax-rules ()
    1193     ((_ ((var type) ...) body ...)
    1194      (let ((var (##core#the type #t var)) ...) body ...)))))
     1191 (syntax-rules ()
     1192   ((_ ((var type) ...) body ...)
     1193    (let ((var (##core#the type #t var)) ...) body ...))))
    11951194
    11961195(##sys#extend-macro-environment
    11971196 'define-specialization '()