Changeset 14806 in project for chicken


Ignore:
Timestamp:
05/27/09 19:28:18 (10 years ago)
Author:
Kon Lovett
Message:

Missing ')'.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/srfi-69.scm

    r14801 r14806  
    2525; POSSIBILITY OF SUCH DAMAGE.
    2626
    27 
    2827(declare
    2928 (unit srfi-69)
     
    148147  (lambda (form r c)
    149148    (let ( (flo (cadr form))
    150            (%%subbyte (r '%subbyte))
    151            (%flonum-magic (r 'flonum-magic))
    152            (%fx+ (r 'fx+))
    153            (%fx* (r 'fx*))
    154            (%fxshl (r 'fxshl)) )
    155     `(,%fx* ,%flonum-magic
     149           (_%subbyte (r '%subbyte))
     150           (_flonum-magic (r 'flonum-magic))
     151           (_fx+ (r 'fx+))
     152           (_fx* (r 'fx*))
     153           (_fxshl (r 'fxshl)) )
     154    `(,_fx* ,_flonum-magic
    156155            ,(let loop ( (idx (fx- (##sys#size 1.0) 1)) )
    157156               (if (fx= 0 idx)
    158                    `(,%%subbyte ,flo 0)
    159                    `(,%fx+ (,%%subbyte ,flo ,idx)
    160                            (,%fxshl ,(loop (fx- idx 1)) 1)) ) ) ) ) ) )
     157                   `(,_%subbyte ,flo 0)
     158                   `(,_fx+ (,_%subbyte ,flo ,idx)
     159                           (,_fxshl ,(loop (fx- idx 1)) 1)) ) ) ) ) ) )
    161160
    162161(define (##sys#number-hash-hook obj)
     
    381380                   (##sys#substring str start end) )
    382381                 str) ) )
    383   (%hash/limit (%string-ci-hash str) bound) )
     382  (%hash/limit (%string-ci-hash str) bound) ) )
    384383
    385384(define string-hash-ci string-ci-hash)
Note: See TracChangeset for help on using the changeset viewer.