Changeset 12017 in project


Ignore:
Timestamp:
09/26/08 21:38:07 (12 years ago)
Author:
Kon Lovett
Message:

Didn't catch all 'make-dict' usage.

Location:
release/3/srfi-29
Files:
2 edited

Legend:

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

    r12015 r12017  
    127127;; Package Bundle Cache
    128128
    129 (define *package-bundle-cache* (make-dict 1 eq?))
     129(define *package-bundle-cache* (make-dict eq?))
    130130
    131131(define (invalidate-package-bundle-cache . bundle-specifier)
    132132  (if (not (null? bundle-specifier))
    133133      (dict-delete! *package-bundle-cache* (caar bundle-specifier))
    134       (set! *package-bundle-cache* (make-dict 1 eq?)) ) )
     134      (set! *package-bundle-cache* (make-dict eq?)) ) )
    135135
    136136(define (cached-package-bundle package-name)
  • release/3/srfi-29/trunk/srfi-29.scm

    r12015 r12017  
    127127;; Package Bundle Cache
    128128
    129 (define *package-bundle-cache* (make-dict 1 eq?))
     129(define *package-bundle-cache* (make-dict eq?))
    130130
    131131(define (invalidate-package-bundle-cache . bundle-specifier)
    132132  (if (not (null? bundle-specifier))
    133133      (dict-delete! *package-bundle-cache* (caar bundle-specifier))
    134       (set! *package-bundle-cache* (make-dict 1 eq?)) ) )
     134      (set! *package-bundle-cache* (make-dict eq?)) ) )
    135135
    136136(define (cached-package-bundle package-name)
Note: See TracChangeset for help on using the changeset viewer.