Changeset 12015 in project


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

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

Location:
release/3/srfi-29
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/3/srfi-29/tags/1.13.0/srfi-29-eggdoc.scm

    r11834 r12015  
    189189
    190190    (history
     191     (version "1.13.0" "Needs new Egg lookup-table.")
    191192     (version "1.12.0" "Needed Unit files. Procedure 'localized-format' did not follow specification.")
    192193     (version "1.9.0" "Version increased to force egg update [by Ivan Raikov].")
  • release/3/srfi-29/tags/1.13.0/srfi-29.html

    r11834 r12015  
    245245<h3>Version</h3>
    246246<ul>
     247<li>1.13.0 Needs new Egg lookup-table.</li>
    247248<li>1.12.0 Needed Unit files. Procedure 'localized-format' did not follow specification.</li>
    248249<li>1.9.0 Version increased to force egg update [by Ivan Raikov].</li>
  • release/3/srfi-29/tags/1.13.0/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)
  • release/3/srfi-29/tags/1.13.0/srfi-29.setup

    r9695 r12015  
    44  'misc-extn              "3.1"
    55  'locale                 "0.3.1"
    6   'lookup-table           "1.5"
     6  'lookup-table           "1.7"
    77  'miscmacros             "2.4")
    88
  • release/3/srfi-29/trunk/srfi-29-eggdoc.scm

    r11834 r12015  
    189189
    190190    (history
     191     (version "1.13.0" "Needs new Egg lookup-table.")
    191192     (version "1.12.0" "Needed Unit files. Procedure 'localized-format' did not follow specification.")
    192193     (version "1.9.0" "Version increased to force egg update [by Ivan Raikov].")
  • release/3/srfi-29/trunk/srfi-29.html

    r11834 r12015  
    245245<h3>Version</h3>
    246246<ul>
     247<li>1.13.0 Needs new Egg lookup-table.</li>
    247248<li>1.12.0 Needed Unit files. Procedure 'localized-format' did not follow specification.</li>
    248249<li>1.9.0 Version increased to force egg update [by Ivan Raikov].</li>
  • 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)
  • release/3/srfi-29/trunk/srfi-29.setup

    r9695 r12015  
    44  'misc-extn              "3.1"
    55  'locale                 "0.3.1"
    6   'lookup-table           "1.5"
     6  'lookup-table           "1.7"
    77  'miscmacros             "2.4")
    88
Note: See TracChangeset for help on using the changeset viewer.