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))) (let ((c (peek-char in)))
(cond (cond
((char-numeric? c) ((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) ((or (eof-object? c) (memv c delimiters)) res)
(else (read-error "invalid char in float syntax" c)))))) (else (read-error "invalid char in float syntax" c))))))
(define (read-name c in) (define (read-name c in)
@ -280,10 +283,12 @@
x))) x)))
((eqv? #\# (peek-char in)) ((eqv? #\# (peek-char in))
(read-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: unknown reference" n))))
(else (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-char in)
(read-one) ;; discard (read-one) ;; discard
@ -374,7 +379,8 @@
(read-error "expected end of list after dot"))))) (read-error "expected end of list after dot")))))
((char-numeric? (peek-char in)) ((char-numeric? (peek-char in))
(lp (cons (read-float-tail in) res))) (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 (else
(if (eof-object? c) (if (eof-object? c)
(read-incomplete-error "unterminated list") (read-incomplete-error "unterminated list")