Changeset 34412 in project


Ignore:
Timestamp:
08/27/17 04:45:14 (3 months ago)
Author:
kon
Message:

bump ver, re-flow

Location:
release/4/srfi-29/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-29/trunk/srfi-29.scm

    r34213 r34412  
    5454(import scheme)
    5555
     56(import chicken)
    5657(import
    57   chicken
    5858  (only srfi-1
    5959    first second third
     
    485485;;
    486486
    487 (define (load-localized-compiled-code libspec pkgnam vartplnams)
     487(define (load-localized-compiled-code libspec pkgnam var-tplnams)
    488488  (check-package-name 'load-localized-compiled-code pkgnam)
    489489  (*load-localized-compiled-code
    490490    libspec
    491491    pkgnam
    492     (check-template-variable-names 'load-localized-compiled-code pkgnam vartplnams)) )
    493 
    494 (define (*load-localized-compiled-code libspec pkgnam vartplnams)
     492    (check-template-variable-names 'load-localized-compiled-code pkgnam var-tplnams)) )
     493
     494(define (*load-localized-compiled-code libspec pkgnam var-tplnams)
    495495  (*load-code 'load-localized-compiled-code libspec)
    496   (fixup-references 'load-localized-compiled-code pkgnam vartplnams) )
     496  (fixup-references 'load-localized-compiled-code pkgnam var-tplnams) )
    497497
    498498;;
     
    530530        (set! +loaded-library-names+ (cons the-name +loaded-library-names+)) ) ) ) )
    531531
    532 (define (fixup-references loc pkgnam vartplnams)
     532(define (fixup-references loc pkgnam var-tplnams)
    533533  (for-each
    534534    (lambda (tplnam)
     
    536536        pkgnam tplnam
    537537        (required-global-ref loc (required-localized-template pkgnam tplnam))) )
    538     vartplnams) )
     538    var-tplnams) )
    539539
    540540;;; Bundle Operations
  • release/4/srfi-29/trunk/srfi-29.setup

    r34213 r34412  
    99  (file-chmod (srfi-29-bundles-home) 'a+rx) )
    1010
    11 (setup-shared-extension-module 'srfi-29 (extension-version "2.4.0")
     11(setup-shared-extension-module 'srfi-29 (extension-version "2.4.1")
    1212  #:inline? #t
    1313  #:types? #t
  • release/4/srfi-29/trunk/tests/run.scm

    r34213 r34412  
    160160(test-group "SRFI 29 Logic"
    161161
     162  ;for compile & load so extension assumed
     163  (define test-logic-filename "test-logic")
     164
    162165  ;compile logic
    163   (system "csc -s test-logic")
     166  (system (string-append "csc -s " test-logic-filename))
    164167
    165168  ;declare logic pkg
    166169  (declare-bundle! '(srfi-29-test)
    167     '((library . "test-logic")      ;pathname of compiled logic
    168       (proc* . (srfi-29-test . test-star))  ;module ident
    169       (proc0 . srfi-29-test-0)              ;0 arg proc
    170       (proc1 . srfi-29-test-1)              ;1 arg proc
    171       (procN . srfi-29-test-N)))            ;N arg proc
     170    `((library . ,test-logic-filename)          ;pathname of compiled logic (for load)
     171      (proc* . (srfi-29-test . test-star))      ;module ident
     172      (proc0 . srfi-29-test-0)                  ;0 arg proc
     173      (proc1 . srfi-29-test-1)                  ;1 arg proc
     174      (procN . srfi-29-test-N)))                ;N arg proc
    172175  (define !item@ (make-required-localized-template 'srfi-29-test))
    173176  (test-assert (procedure? !item@))
Note: See TracChangeset for help on using the changeset viewer.