Changeset 22985 in project for release/4/honu/trunk/honu.scm


Ignore:
Timestamp:
03/03/11 23:59:44 (10 years ago)
Author:
felix winkelmann
Message:

honu 1.8: fix handling of exponential numbers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/honu/trunk/honu.scm

    r22662 r22985  
    101101                       (set! e #t)
    102102                       (read-char port)
    103                        (case (peek-char port)
    104                          ((#\+ #\-) (loop (cons (read-char port) lst)))
    105                          (else (reverse-list->string lst)) ) ) ) )
     103                       (let ((c (peek-char port)))
     104                         (case c
     105                           ((#\+ #\-) (loop (cons (read-char port) (cons #\e lst))))
     106                           (else
     107                            (if (char-numeric? c)
     108                                (loop (cons (read-char port) (cons #\e lst)))
     109                                (reverse-list->string lst)) ) ) ) )))
    106110               ((#!eof) (reverse-list->string lst))
    107111               ((#\.)
Note: See TracChangeset for help on using the changeset viewer.