From 093ee93a3ce2f1822ee1642f4145324ce4e7806b Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Sat, 17 Feb 2018 16:09:44 +0000
Subject: [PATCH] deleted unneeded code

---
 lib/read.c | 41 +++++++++++++----------------------------
 1 file changed, 13 insertions(+), 28 deletions(-)

diff --git a/lib/read.c b/lib/read.c
index d55c4d0..ad6edee 100644
--- a/lib/read.c
+++ b/lib/read.c
@@ -754,16 +754,22 @@ static int get_sharp_token (hcl_t* hcl)
 	 * #bBBBB binary
 	 * #oOOOO octal 
 	 * #xXXXX hexadecimal
+	 * #nil
 	 * #true
 	 * #false
 	 * #include
-	 * #\C  * character
-	 * #\xHHHH  * unicode
-	 * #\uHHHH
-	 * #( )  * array
-	 * #[ ]  * byte array
-	 * #{ }  * dictionary
-	 * #< > -- xxx
+	 * #\C      character
+	 * #\XHHHH  unicode character
+	 * #\xHHHH  unicode character
+	 * #\UHHHH  unicode character
+	 * #\uHHHH  unicode character
+	 * #\EDDD   error
+	 * #\eDDD   error
+	 * #\PHHH   smptr
+	 * #\pHHH   smptr
+	 * #( )     array
+	 * #[ ]     byte array
+	 * #{ }     dictionary
 	 */
 
 	switch (c)
@@ -780,27 +786,6 @@ static int get_sharp_token (hcl_t* hcl)
 			if (get_radix_number (hcl, c, radix) <= -1) return -1;
 			break;
 
-#if 0 
-/* i changed mind. i don't want to have #t for true and #f for false. */
-		case 't':
-			ADD_TOKEN_CHAR (hcl, '#');
-			ADD_TOKEN_CHAR (hcl, 't');
-			GET_CHAR_TO (hcl, c);
-			if (!is_delimiter(c)) goto long_name;
-			unget_char (hcl, &hcl->c->lxc);
-			SET_TOKEN_TYPE (hcl, HCL_IOTOK_TRUE);
-			break;
-
-		case 'f':
-			ADD_TOKEN_CHAR (hcl, '#');
-			ADD_TOKEN_CHAR (hcl, 'f');
-			GET_CHAR_TO (hcl, c);
-			if (!is_delimiter(c)) goto long_name;
-			unget_char (hcl, &hcl->c->lxc);
-			SET_TOKEN_TYPE (hcl, HCL_IOTOK_FALSE);
-			break;
-#endif
-
 		case '\\': /* character literal */
 			ADD_TOKEN_CHAR (hcl, '#');
 			ADD_TOKEN_CHAR (hcl, '\\');