Changeset 22985 in project


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

honu 1.8: fix handling of exponential numbers

Location:
release/4/honu
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/honu/tags/1.8/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               ((#\.)
  • release/4/honu/tags/1.8/honu.setup

    r22662 r22985  
    66(install-extension
    77 'honu '("honu.so" "honu.import.so")
    8  '((version 1.7)))
     8 '((version 1.8)))
  • 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               ((#\.)
  • release/4/honu/trunk/honu.setup

    r22662 r22985  
    66(install-extension
    77 'honu '("honu.so" "honu.import.so")
    8  '((version 1.7)))
     8 '((version 1.8)))
Note: See TracChangeset for help on using the changeset viewer.