From 580d4323aa2a838b43a9e6b9b1194baaf8e1aec8 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 16 Apr 2012 20:39:30 +0900
Subject: [PATCH] Providing friendlier error message for # at end of input.

---
 lib/srfi/38.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index c09b11a6..13c96e54 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -226,6 +226,8 @@
           (case (peek-char in)
             ((#\#)
              (read-char in)
+             (if (eof-object? (peek-char in))
+                 (error "read error: incomplete # found at end of input"))
              (case (char-downcase (peek-char in))
                ((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
                 (let* ((str (read-label '()))