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/tests/compiler-tests-2.scm

    r15817 r15828  
    4141  (map (lambda (x) (print* ":" x)) '(1 2 3))
    4242  (newline))
     43
     44(let ((x #f))
     45  (define (f1 x) (print* x " "))
     46  (let-syntax ((f1 (syntax-rules ()
     47                     ((_ y)
     48                      (begin
     49                        (assert (not x))
     50                        (set! x #t)
     51                        f1)))))
     52    (for-each f1 '(1 2 3))))
Note: See TracChangeset for help on using the changeset viewer.