Changeset 12015 in project for release/3/srfi-29/trunk/srfi-29.scm


Ignore:
Timestamp:
09/26/08 20:52:45 (13 years ago)
Author:
Kon Lovett
Message:

Chgd to "new" arg order for 'make-dict'.

File:
1 edited

Legend:

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

    r11834 r12015  
    102102  (if (null? bundle-specifier)
    103103      (signal-srfi-29-exception 'load-bundle! "must specify package name" bundle-specifier)
    104       (make-pathname (reverse! (fold (lambda (x l)
    105                                        (if x
    106                                            (cons (symbol->string x) l)
    107                                            l ) )
    108                                      '()
    109                                      (cdr bundle-specifier)))
    110                      (symbol->string (car bundle-specifier))) ) )
     104      (make-pathname
     105       (reverse!
     106        (fold (lambda (x l) (if x (cons (symbol->string x) l) l)) '() (cdr bundle-specifier)))
     107       (symbol->string (car bundle-specifier))) ) )
    111108
    112109(define-inline (bundle-specification->absolute-pathname bundle-specifier alternate-dir)
     
    116113;; Bundles Dictionary
    117114
    118 (define *localization-bundles* (make-dict 1 equal?))
     115(define *localization-bundles* (make-dict equal?))
    119116
    120117(define-inline (find-bundle bundle-specifier)
Note: See TracChangeset for help on using the changeset viewer.