Changeset 15276 in project for chicken/trunk/compiler.scm


Ignore:
Timestamp:
07/30/09 10:51:41 (12 years ago)
Author:
felix winkelmann
Message:

strip unit names (if unit-name equals symbol in se); include windows.h and define WINAPI, when needed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r15246 r15276  
    12481248  (define (strip x)                     ; raw symbol
    12491249    (##sys#strip-syntax x se))
     1250  (define stripu ##sys#strip-syntax)
    12501251  (call-with-current-continuation
    12511252   (lambda (return)
     
    12551256     (case (##sys#strip-syntax (car spec)) ; no global aliasing
    12561257       ((uses)
    1257         (let ((us (strip (cdr spec))))
     1258        (let ((us (stripu (cdr spec))))
    12581259          (apply register-feature! us)
    12591260          (when (pair? us)
     
    12661267       ((unit)
    12671268        (check-decl spec 1 1)
    1268         (let* ([u (strip (cadr spec))]
     1269        (let* ([u (stripu (cadr spec))]
    12691270               [un (string->c-identifier (stringify u))] )
    12701271          (when (and unit-name (not (string=? unit-name un)))
Note: See TracChangeset for help on using the changeset viewer.