Changeset 14341 in project for chicken


Ignore:
Timestamp:
04/22/09 13:06:13 (10 years ago)
Author:
felix winkelmann
Message:

added test for #15 by Alex Shinn

File:
1 edited

Legend:

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

    r14268 r14341  
    312312  (import scheme chicken)
    313313  ((lambda (#!key string) (assert (not string))))) ; refered to R5RS `string'
     314
     315
     316;;; compiler didn't resolve expansion into local variable
     317;;; (reported by Alex Shinn, #15)
     318
     319(module unresolve-local (foo)
     320  (import scheme)
     321  (define (foo)
     322    (let ((qux 3))
     323      (let-syntax ((bar (syntax-rules () ((bar) qux))))
     324        (bar))))
     325
     326  (display (foo))
     327)
Note: See TracChangeset for help on using the changeset viewer.