Changeset 14558 in project


Ignore:
Timestamp:
05/07/09 15:41:39 (10 years ago)
Author:
felix winkelmann
Message:

automatic emission of internal import lib (0.2)

Location:
release/4/s48-modules
Files:
2 edited

Legend:

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

    r14535 r14558  
    154154                             "invalid structure clause"
    155155                             clause))))))
     156        (let ((names (map (lambda (n) (##sys#strip-syntax (car n))) (cadr x))))
     157          (when (and (memq #:compiling ##sys#features)
     158                     (any (lambda (n) (assq n ##compiler#import-libraries))
     159                          names))
     160            (set! ##compiler#import-libraries
     161              (alist-cons
     162               iname1
     163               (string-append (symbol->string iname1) ".import.scm")
     164               ##compiler#import-libraries) ) ) )
    156165        `(,%begin
    157166          (,%module ,iname1 * ,@(process-body (cddr x) #f))
  • release/4/s48-modules/s48-modules.setup

    r14535 r14558  
    55 's48-modules
    66 '("s48-modules.so" "s48-modules.import.so")
    7  `((version 0.1)
     7 `((version 0.2)
    88   (documentation "s48-modules.html")))
Note: See TracChangeset for help on using the changeset viewer.