Changeset 15775 in project


Ignore:
Timestamp:
09/07/09 17:39:20 (10 years ago)
Author:
Kon Lovett
Message:

Rel 2.0.1

Location:
release/4/srfi-29
Files:
2 edited
1 copied

Legend:

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

    r15722 r15775  
    137137;; i.e. package + locale: (package-name [language] [country] [details ...])
    138138
    139 (define (bundle-specifier? obj) (and (pair? obj) (every symbol? obj)))
     139(define (bundle-specifier? obj)
     140  (and (pair? obj)
     141       (every (lambda (x) (or (not x) (symbol? x))) obj)) )
    140142
    141143(define-check+error-type bundle-specifier)
     
    372374    (let loop ((bndl-spec (remove not bndl-spec)))
    373375      (and (not (null? bndl-spec))
    374            (or (apply load-bundle! bndl-spec alt-dir)
     376           (or (load-bundle! bndl-spec alt-dir)
    375377               (loop (drop-right! bndl-spec 1)) ) ) ) ) )
    376378
  • release/4/srfi-29/trunk/srfi-29.scm

    r15722 r15775  
    137137;; i.e. package + locale: (package-name [language] [country] [details ...])
    138138
    139 (define (bundle-specifier? obj) (and (pair? obj) (every symbol? obj)))
     139(define (bundle-specifier? obj)
     140  (and (pair? obj)
     141       (every (lambda (x) (or (not x) (symbol? x))) obj)) )
    140142
    141143(define-check+error-type bundle-specifier)
     
    372374    (let loop ((bndl-spec (remove not bndl-spec)))
    373375      (and (not (null? bndl-spec))
    374            (or (apply load-bundle! bndl-spec alt-dir)
     376           (or (load-bundle! bndl-spec alt-dir)
    375377               (loop (drop-right! bndl-spec 1)) ) ) ) ) )
    376378
Note: See TracChangeset for help on using the changeset viewer.