Changeset 38881 in project


Ignore:
Timestamp:
08/23/20 12:11:59 (5 weeks ago)
Author:
felix winkelmann
Message:

s11n 0.9.12: applied ht-related patch by idiondrottning

Location:
release/5/s11n
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/s11n/tags/0.9.12/chicken-dump.scm

    r37921 r38881  
    8686             (fetchh "(comparison procedure)") )
    8787           (fluid-let ((indent (+ 2 indent)))
    88              (fetchh "(hash function)") ))
     88             (fetchh "(hash function)") )
     89           (fluid-let ((indent (+ 2 indent)))
     90             (fetchh "(min load)") )
     91           (fluid-let ((indent (+ 2 indent)))
     92             (fetchh "(max load)") )
     93           (fluid-let ((indent (+ 2 indent)))
     94             (fetchh "(weak keys)") )
     95           (fluid-let ((indent (+ 2 indent)))
     96             (fetchh "(weak values)") )
     97           (fluid-let ((indent (+ 2 indent)))
     98             (fetchh "(has initial?)") )
     99           (fluid-let ((indent (+ 2 indent)))
     100             (fetchh "(hash key len)") ))
    89101          (else
    90102           (call/cc
  • release/5/s11n/tags/0.9.12/s11n.scm

    r37942 r38881  
    229229           (addref #f)
    230230           (let ((r (sub1 backref-count))
    231                  (ht (##sys#make-structure 'hash-table #f 0 #f #f)) )
     231                 (ht (##sys#make-structure 'hash-table #f 0 #f #f #f #f #f #f #f #f)) )
    232232             (vector-set! backrefs r ht)
    233233             (let* ((table (fetch))
    234                     (test (fetch))
    235                     (hashf (fetch))
    236                     (ht2 (alist->hash-table table)) )
     234                    (ht2 (alist->hash-table table)))
    237235               (##sys#setslot ht 1 (##sys#slot ht2 1))
    238236               (##sys#setslot ht 2 (##sys#slot ht2 2))
    239                (##sys#setslot ht 3 test)
    240                (##sys#setslot ht 4 hashf)
     237               (do ((i 3 (add1 i))) ((> i 10)) (##sys#setslot ht i (fetch)))
    241238               ht) ) )
    242239          (else
  • release/5/s11n/trunk/chicken-dump.scm

    r37921 r38881  
    8686             (fetchh "(comparison procedure)") )
    8787           (fluid-let ((indent (+ 2 indent)))
    88              (fetchh "(hash function)") ))
     88             (fetchh "(hash function)") )
     89           (fluid-let ((indent (+ 2 indent)))
     90             (fetchh "(min load)") )
     91           (fluid-let ((indent (+ 2 indent)))
     92             (fetchh "(max load)") )
     93           (fluid-let ((indent (+ 2 indent)))
     94             (fetchh "(weak keys)") )
     95           (fluid-let ((indent (+ 2 indent)))
     96             (fetchh "(weak values)") )
     97           (fluid-let ((indent (+ 2 indent)))
     98             (fetchh "(has initial?)") )
     99           (fluid-let ((indent (+ 2 indent)))
     100             (fetchh "(hash key len)") ))
    89101          (else
    90102           (call/cc
  • release/5/s11n/trunk/s11n.scm

    r37942 r38881  
    229229           (addref #f)
    230230           (let ((r (sub1 backref-count))
    231                  (ht (##sys#make-structure 'hash-table #f 0 #f #f)) )
     231                 (ht (##sys#make-structure 'hash-table #f 0 #f #f #f #f #f #f #f #f)) )
    232232             (vector-set! backrefs r ht)
    233233             (let* ((table (fetch))
    234                     (test (fetch))
    235                     (hashf (fetch))
    236                     (ht2 (alist->hash-table table)) )
     234                    (ht2 (alist->hash-table table)))
    237235               (##sys#setslot ht 1 (##sys#slot ht2 1))
    238236               (##sys#setslot ht 2 (##sys#slot ht2 2))
    239                (##sys#setslot ht 3 test)
    240                (##sys#setslot ht 4 hashf)
     237               (do ((i 3 (add1 i))) ((> i 10)) (##sys#setslot ht i (fetch)))
    241238               ht) ) )
    242239          (else
Note: See TracChangeset for help on using the changeset viewer.