Changeset 13620 in project for chicken


Ignore:
Timestamp:
03/09/09 19:48:44 (11 years ago)
Author:
Kon Lovett
Message:

Fixed up some code formatting.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/eval.scm

    r13583 r13620  
    134134                  (##sys#string-append
    135135                   p
    136                    (if (memq (string-ref p (fx- (##sys#size p) 1)) '(#\\ #\/))
    137                        "" "/") ) ) ) )
     136                   (if (memq (string-ref p (fx- (##sys#size p) 1)) '(#\\ #\/)) "" "/")) ) ) )
    138137    (lambda (#!optional dir)
    139138      (and prefix
     
    157156          (##core#inline "C_fixnum_modulo" cache-h n)
    158157          (begin
    159               (set! cache-s s)
    160               (set! cache-h (##core#inline "C_hash_string" (##sys#slot s 1)))
    161               (##core#inline "C_fixnum_modulo" cache-h n))))))
     158            (set! cache-s s)
     159            (set! cache-h (##core#inline "C_hash_string" (##sys#slot s 1)))
     160            (##core#inline "C_fixnum_modulo" cache-h n))))))
    162161
    163162(define (##sys#hash-table-ref ht key)
    164163  (let loop ((bucket (##sys#slot ht (##sys#hash-symbol key (##core#inline "C_block_size" ht)))))
    165       (if (eq? '() bucket)
    166           #f
    167           (if (eq? key (##sys#slot (##sys#slot bucket 0) 0))
    168               (##sys#slot (##sys#slot bucket 0) 1)
    169               (loop (##sys#slot bucket 1))))))
     164      (and (not (eq? '() bucket))
     165           (if (eq? key (##sys#slot (##sys#slot bucket 0) 0))
     166               (##sys#slot (##sys#slot bucket 0) 1)
     167               (loop (##sys#slot bucket 1))))))
    170168
    171169(define (##sys#hash-table-set! ht key val)
     
    186184    (do ((i 0 (fx+ i 1)))
    187185        ((fx>= i len))
    188       (##sys#for-each (lambda (bucket)
    189                    (p (##sys#slot bucket 0)
    190                       (##sys#slot bucket 1) ) )
    191                  (##sys#slot ht i) ) ) ) )
     186      (##sys#for-each (lambda (bucket) (p (##sys#slot bucket 0) (##sys#slot bucket 1)))
     187                      (##sys#slot ht i) ) ) ) )
    192188
    193189(define ##sys#hash-table-location
Note: See TracChangeset for help on using the changeset viewer.