From c55fa6fe4dc0f5ab2b982af5d2c6c1a4c83255ee Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 4 Nov 2012 00:35:55 +0900 Subject: [PATCH] Allowing fractions with prefixes in srfi-38. --- lib/srfi/38.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm index 149d1948..8d3a93cb 100644 --- a/lib/srfi/38.scm +++ b/lib/srfi/38.scm @@ -165,6 +165,8 @@ (read-label (cons (read-char in) res))) ((and (memv c '(#\+ #\-)) (null? res)) (read-label (cons (read-char in) res))) + ((and (eqv? c #\/) (not (memv #\/ res))) + (read-label (cons (read-char in) res))) (else (list->string (reverse res)))))) (define (read-number base)