diff --git a/implementations/c/src/reader.c b/implementations/c/src/reader.c index 0256f41..b7c1f30 100644 --- a/implementations/c/src/reader.c +++ b/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)); */ }