Changeset 911 in project


Ignore:
Timestamp:
06/06/06 13:30:08 (14 years ago)
Author:
Kon Lovett
Message:

setup-header bug fix.

Location:
srfi-29
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • srfi-29/setup-header.scm

    r560 r911  
    1616
    1717(define (make-docu-filename bn)
    18   (make-filename bn ".html") )
     18  (make-filename bn "html") )
    1919
    2020(define (make-dynld-filename bn)
     
    2222
    2323(define (make-source-filename bn)
    24   (make-filename bn ".scm") )
     24  (make-filename bn "scm") )
    2525
    2626(define (make-exports-filename bn)
    27   (make-filename bn ".exports") )
     27  (make-filename bn "exports") )
    2828
    2929(define (make-repository-pathname bn)
     
    3434(define-macro (copy-to-repository FN)
    3535        `(copy-file
    36                 (make-pathname "." (->string ,FN))
    37                 (make-pathname (repository-path) (->string ,FN))))
     36                (->string ,FN)
     37                (make-repository-pathname (->string ,FN))) )
    3838
    3939(define-macro (compile-dynld DYN . OPT)
    4040        `(compile
    41                 -O2 -d0
     41                -O2 -d1
    4242                -s
    4343                ,(make-source-filename DYN)
     
    4646                ,@(if exports? `(-emit-exports ,(make-exports-filename DYN)) '())
    4747                ,@OPT) )
    48                
     48
    4949;;
    5050(define (parse-optionals opt)
     
    7777                                '(
    7878                                        ,@OPT-ARGS
    79                                         ,@(if (null? RQR@RUN) '() `((require-at-runtime ,@RQR@RUN)))
     79                                        (require-at-runtime ,(->symbol DYN) ,@RQR@RUN)
    8080                                        (version ,VER)
    8181                                        ,@(if exports? `((exports ,(make-exports-filename DYN))) '()) ) ) ) ) )
     
    9292                                '(
    9393                                        ,@OPT-ARGS
    94                                         ,@(if (null? RQR@RUN) '() `((require-at-runtime ,@RQR@RUN)))
     94                                        (require-at-runtime ,(->symbol DYN) ,@RQR@RUN)
    9595                                        (documentation ,(make-docu-filename DYN))
    9696                                        (version ,VER)
  • srfi-29/srfi-29.meta

    r526 r911  
    1313        "srfi-29.scm"
    1414        "srfi-29-test.scm"
    15         "srfi-29.setup"
    16         "lookup-table.scm") )
     15        "srfi-29.setup") )
  • srfi-29/srfi-29.setup

    r790 r911  
    1 (include "setup-header.scm")
     1(include "setup-header")
    22
    33(create-directory (make-repository-pathname "srfi-29-bundles"))
    44
    5 (install-dynld+docu srfi-29 "1.3" (require-at-runtime srfi-29 locale lookup-table))
     5(install-dynld+docu srfi-29 "1.3" (require-at-runtime locale lookup-table))
Note: See TracChangeset for help on using the changeset viewer.