From 636a74d044462b5edb4772e9353ac6b1e8661718 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 24 Nov 2014 11:05:17 +0900 Subject: [PATCH] Wrapping to 80 columns. --- lib/srfi/38.scm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm index 923db195..5ed12de3 100644 --- a/lib/srfi/38.scm +++ b/lib/srfi/38.scm @@ -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) - (else (read-error "read error: unknown reference" n)))) + (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")