Changeset 14540 in project for chicken


Ignore:
Timestamp:
05/07/09 03:22:58 (11 years ago)
Author:
Alex Shinn
Message:

Matching `*' as the module exports list unhygienically.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/expand.scm

    r14398 r14540  
    12641264    `(##core#module
    12651265      ,(cadr x)
    1266       ,(if (c (r '*) (caddr x))
     1266      ,(if (eq? '* (strip-syntax (caddr x)))
    12671267           #t
    12681268           (caddr x))
Note: See TracChangeset for help on using the changeset viewer.