From a56b497a006b9aa15cb34462c91d104bf14e1871 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 23 May 2012 23:27:02 +0900 Subject: [PATCH] fixing bug in srfi-38 for reading ellipsis --- lib/srfi/38.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm index 13c96e54..835dbcfe 100644 --- a/lib/srfi/38.scm +++ b/lib/srfi/38.scm @@ -311,7 +311,7 @@ (error "expected end of list after dot")))) ((char-numeric? (peek-char in)) (lp (cons (read-float-tail in) res))) - (else (string->symbol (read-name #\. in))))) + (else (lp (cons (string->symbol (read-name #\. in)) res))))) (else (if (eof-object? c) (error "unterminated list")