Changeset 35493 in project


Ignore:
Timestamp:
04/30/18 03:16:29 (4 weeks ago)
Author:
kon
Message:

re-flow

File:
1 edited

Legend:

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

    r35378 r35493  
    285285(define package-bundle-cache
    286286  ;NOTE *LOADTIME* is #t here
    287   (let ((dict (make-dict eq?)))
     287  (let (
     288    (*eq-dict* (make-dict eq?)) )
    288289    (if (environment-variable-true? TLS-ENVIRONMENT-VARIABLE)
    289290      ;then use a parameter for the cache so one bundle per package per thread
    290       (make-parameter dict)
     291      (make-parameter *eq-dict*)
    291292      ;else one bundle per package
    292       (let ((cur-dict dict))
     293      (let (
     294        (*cur-dict* *eq-dict*) )
    293295        (lambda args
    294296          (let-optionals args ((new-dict #f))
    295             (if new-dict
    296               (set! cur-dict new-dict)
    297               cur-dict ) ) ) ) ) ) )
     297            (when new-dict (set! *cur-dict* new-dict))
     298            *cur-dict* ) ) ) ) ) )
    298299
    299300(define (invalidate-package-bundle-cache . args)
     
    654655(register-feature! 'srfi-29)
    655656
    656 ;;ugh
     657;FIXME ugh - uses chicken "feature" for a reason
    657658(define *LOADTIME* #f)
    658659
Note: See TracChangeset for help on using the changeset viewer.