Changeset 15828 in project for chicken/trunk/compiler-syntax.scm


Ignore:
Timestamp:
09/11/09 16:13:46 (11 years ago)
Author:
felix winkelmann
Message:

handle case where proc in for-each/map is macro name

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler-syntax.scm

    r15817 r15828  
    7676                  (,%if (,%and ,@(map (lambda (v) `(,%pair? ,v)) vars))
    7777                        (,%begin
    78                          (,(cadr x)
     78                         ((,%begin ,(cadr x))
    7979                          ,@(map (lambda (v) `(##sys#slot ,v 0)) vars))
    8080                         (##core#app
     
    9494        (%node (r 'node))
    9595        (%quote (r 'quote))
     96        (%begin (r 'begin))
    9697        (%lambda (r 'lambda))
    9798        (%and (r 'and))
     
    110111                             (,%let ((,%res
    111112                                      (,%cons
    112                                        (,(cadr x)
     113                                       ((,%begin ,(cadr x))
    113114                                        ,@(map (lambda (v) `(##sys#slot ,v 0)) vars))
    114115                                       (,%quote ()))))
Note: See TracChangeset for help on using the changeset viewer.