Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-06-26 07:46:40 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Wrapping to 80 columns.

Browse source
This commit is contained in:
Alex Shinn 2014-11-24 11:05:17 +09:00
parent 161fad8167
commit 636a74d044
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/srfi/38.scm
View file

@ -206,7 +206,10 @@
(let ((c (peek-char in)))
(cond
((char-numeric? c)
(lp (+ res (* (- (char->integer (read-char in)) (char->integer #\0)) k)) (* k 0.1)))
(lp (+ res (* (- (char->integer (read-char in))
(char->integer #\0))
k))
(* k 0.1)))
((or (eof-object? c) (memv c delimiters)) res)
(else (read-error "invalid char in float syntax" c))))))
(define (read-name c in)
@ -280,10 +283,12 @@
x)))
((eqv? #\# (peek-char in))
(read-char in)
(cond ((assv n shared) => cdr)
(cond
((assv n shared) => cdr)
(else (read-error "read error: unknown reference" n))))
(else
(read-error "read error: expected # after #n" (read-char in))))))
(read-error "read error: expected # after #n"
(read-char in))))))
((#\;)
(read-char in)
(read-one) ;; discard
@ -374,7 +379,8 @@
(read-error "expected end of list after dot")))))
((char-numeric? (peek-char in))
(lp (cons (read-float-tail in) res)))
(else (lp (cons (string->symbol (read-name #\. in)) res)))))
(else
(lp (cons (string->symbol (read-name #\. in)) res)))))
(else
(if (eof-object? c)
(read-incomplete-error "unterminated list")