Changeset 8275 in project


Ignore:
Timestamp:
02/07/08 17:17:55 (12 years ago)
Author:
Kon Lovett
Message:

Use of tabs+spaces.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/extras.scm

    r8235 r8275  
    13951395(define format
    13961396  (let ([fprintf fprintf]
    1397         [sprintf sprintf]
    1398         [printf printf] )
     1397        [sprintf sprintf]
     1398        [printf printf] )
    13991399    (lambda (fmt-or-dst . args)
    1400       (apply (cond [(not fmt-or-dst)            sprintf]
    1401                    [(boolean? fmt-or-dst)        printf]
    1402                    [(string? fmt-or-dst)        (set! args (cons fmt-or-dst args)) sprintf]
    1403                    [(output-port? fmt-or-dst)    (set! args (cons fmt-or-dst args)) fprintf]
    1404                    [else
    1405                     (##sys#error 'format "illegal destination" fmt-or-dst args)])
     1400      (apply (cond [(not fmt-or-dst)            sprintf]
     1401                   [(boolean? fmt-or-dst)        printf]
     1402                   [(string? fmt-or-dst)        (set! args (cons fmt-or-dst args)) sprintf]
     1403                   [(output-port? fmt-or-dst)    (set! args (cons fmt-or-dst args)) fprintf]
     1404                   [else
     1405                    (##sys#error 'format "illegal destination" fmt-or-dst args)])
    14061406             args) ) ) )
    14071407
     
    16991699        [(symbol? obj)          ($symbol-hash obj)]
    17001700        #; ;UNUSED (no keyword vs. symbol issue)
    1701         [(keyword? obj)         ($keyword-hash obj)]
     1701        [(keyword? obj)         ($keyword-hash obj)]
    17021702        [($immediate? obj)      unknown-immediate-hash-value]
    17031703        [else                   (%object-uid-hash obj) ] ) )
     
    17251725        [(symbol? obj)          ($symbol-hash obj)]
    17261726        #; ;UNUSED (no keyword vs. symbol issue)
    1727         [(keyword? obj)         ($keyword-hash obj)]
     1727        [(keyword? obj)         ($keyword-hash obj)]
    17281728        [($immediate? ,?obj)    unknown-immediate-hash-value]
    17291729        [else                   (%object-uid-hash obj) ] ) )
     
    19001900        (let ([hash-for-test
    19011901                (lambda ()
    1902                   (cond [(eq? core-eq? test)      eq?-hash]
     1902                  (cond [(eq? core-eq? test)      eq?-hash]
    19031903                        [(eq? eqv? test)          eqv?-hash]
    19041904                        [(eq? equal? test)        equal?-hash]
     
    20902090  (getter-with-setter
    20912091   (lambda (ht key #!optional (def (lambda ()
    2092                                      (##sys#signal-hook #:access-error
    2093                                       'hash-table-ref
    2094                                       "hash-table does not contain key" key ht))))
     2092                                     (##sys#signal-hook #:access-error
     2093                                      'hash-table-ref
     2094                                      "hash-table does not contain key" key ht))))
    20952095     (##sys#check-structure ht 'hash-table 'hash-table-ref)
    20962096     (##sys#check-closure def 'hash-table-ref)
Note: See TracChangeset for help on using the changeset viewer.