Changeset 9978 in project for release/3/rgraph/trunk


Ignore:
Timestamp:
03/20/08 20:38:38 (12 years ago)
Author:
Kon Lovett
Message:

Rel 0.3.4 w/ Explict use of SRFI 69.

Location:
release/3/rgraph/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/3/rgraph/trunk/rgraph-base.scm

    r9977 r9978  
    3636  [chicken
    3737    (require-extension extras srfi-69) ; hash-table
    38     (define (hash-table-map proc ht)
    39       (##sys#check-structure ht 'hash-table 'hash-table-map)
    40       (let* ([vec (##sys#slot ht 1)]
    41              [len (##sys#size vec)] )
    42         (let loop ([i 0] [lst '()])
    43           (if (fx>= i len)
    44               lst
    45               (let loop2 ([bucket (##sys#slot vec i)] [lst lst])
    46                 (if (null? bucket)
    47                     (loop (fx+ i 1) lst)
    48                     (loop2 (##sys#slot bucket 1)
    49                       (let ([x (##sys#slot bucket 0)])
    50                         (cons
    51                           (proc (##sys#slot x 0) (##sys#slot x 1))
    52                           lst)))))))))
    5338
    5439    ]
     
    5641
    5742(cond-expand
    58   [(and chicken srfi-40)
     43  [(and chicken (or srfi-40 srfi-41))
    5944    (define (hash-table->stream ht)
    60       (##sys#check-structure ht 'hash-table 'hash-table->list)
     45      (##sys#check-structure ht 'hash-table 'hash-table->stream)
    6146      (let* ([vec (##sys#slot ht 1)]
    6247             [len (##sys#size vec)] )
     
    6954                      (iter (fx+ i 1) lst)
    7055                      (loop (##sys#slot bucket 1)
    71                         (let ([x (##sys#slot bucket 0)])
    72                           (stream-cons
    73                             (cons (##sys#slot x 0) (##sys#slot x 1))
    74                             lst))))))))))]
     56                            (let ([x (##sys#slot bucket 0)])
     57                              (stream-cons (cons (##sys#slot x 0) (##sys#slot x 1))
     58                                           lst))))))))))]
    7559  (else))
    7660
    7761(cond-expand
    78   [srfi-40
     62  [(or srfi-40 srfi-41)
    7963    (define (vector->stream vct)
    8064      (let ([l (vector-length vct)])       
  • release/3/rgraph/trunk/rgraph.scm

    r9977 r9978  
    621621           (lambda (g)
    622622             (let* ((vl (,get-vl g)) (table (,vl-table vl)))
    623                (hash-table-map (lambda (k v) k) table))))
     623               (hash-table-keys table))))
    624624         (define ,vertices*
    625625           (lambda (g)
  • release/3/rgraph/trunk/rgraph.setup

    r9977 r9978  
    11;;;; rgraph.setup -*- Hen -*-
    22
    3 (run (csc -s -O2 -d0 rgraph-base.scm))
     3(compile -s -O2 -d0 -check-imports -emit-exports "rgraph.exports" rgraph-base.scm -check-imports)
    44
    55(install-extension
Note: See TracChangeset for help on using the changeset viewer.