clean reader

implementations/c/src/reader.c

@@ -85,10 +85,6 @@ Pointer peek_char_fn(Pointer args, Pointer env) {
   }
 
   return character(c);
-  /* printf("%s: %d\n", __FILE__, __LINE__); */
-  /* char c = getc(stream); */
-  /* printf("%s: %d: %c\n", __FILE__, __LINE__, c); */
-  /* return character(ungetc(c, stream)); */
 }
 
 Pointer read_char_fn(Pointer args, Pointer env) {
@@ -270,7 +266,4 @@ void reader_init(void) {
   READTABLE = table_set(READTABLE, '(', native_func(read_list_macro));
   READTABLE = table_set(READTABLE, ')', native_func(read_list_macro));
   READTABLE = table_set(READTABLE, '\\', native_func(read_char_macro));
-  /* GLOBALS = table_set(GLOBALS, */
-  /* 		      symbol("*standard-input*", sizeof("*standard-input*")), */
-  /* 		      stream(stdin)); */
 }