fixing typo

This commit is contained in:
Alex Shinn 2011-10-07 22:09:36 +09:00
parent 28fe3fb7fd
commit a2fa55ec62

View file

@ -185,7 +185,7 @@
((#\') (read-char in) (list 'syntax (read-one)))
((#\`) (read-char in) (list 'quasisyntax (read-one)))
((#\t) (read-char in) #t)
((#\f) (read-char in) #t) ; support SRFI-4 f32/64 vectors
((#\f) (read-char in) #f) ; support SRFI-4 f32/64 vectors
((#\d) (read-char in) (read in))
((#\x) (read-char in) (read-number 16))
((#\o) (read-char in) (read-number 8))