Changeset 14450 in project


Ignore:
Timestamp:
04/26/09 16:57:08 (11 years ago)
Author:
sjamaan
Message:

Add support for (name :type) in export lists, by ignoring the type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/s48-modules/s48-modules.scm

    r14162 r14450  
    2323              ((or (not (list? iface)) (not (pair? iface))) (fail))
    2424              ((c (r 'export) (car iface))
    25                (cdr iface))
     25               (map (lambda (sym)  ;; collapse  '(name :type) => 'name
     26                      (if (pair? sym) (car sym) sym))
     27                    (cdr iface)))
    2628              ((c (r 'compound-interface) (car iface))
    2729               (delete-duplicates
Note: See TracChangeset for help on using the changeset viewer.