clean reader

implementations/c/src/lisp.c

@@ -324,14 +324,7 @@ void init(void) {
 void repl(void) {
   while(true) {
     printf(">>> ");
-    Pointer reader = read_fn(NIL, NIL);
+    print(eval(read_fn(NIL, NIL), NIL), stdout);
-    char c;
-    while((c = getc(stdin)) && isspace(c) && c != '\n');
-    if (c != '\n') ungetc(c, stdin);
-    /* read_char_fn(NIL, NIL); */
-    /* read_char_fn(NIL, NIL); */
-    /* printf("eof?: %d", feof(stdin)); */
-    print(eval(reader, NIL), stdout);
     printf("\n");
   }
 }

implementations/c/src/reader.c

@@ -143,14 +143,11 @@ Pointer read1(Pointer streamPtr, Pointer env) {
 Pointer read_fn(Pointer args, Pointer env) {
   Pointer streamPtr = CAR(args);
   streamPtr = streamPtr == NIL ? environment_get(env, STANDARD_INPUT) : streamPtr;
-  /* Stream stream = STREAM(streamPtr); */
+  Stream stream = STREAM(streamPtr);
   Pointer result = read1(streamPtr, env);
-  /* peek_char(T, stream); */
+  char c;
-  /* getc(stream); */
+  while((c = getc(stream)) && isspace(c) && c != '\n');
-  /* char c; */
+  if (c != '\n') ungetc(c, stream);
-  /* getc(stream); */
-  /* while((c = getc(stream)) >= 0 && c == ' ') ungetc(c, stream); */
-  /* if (c != EOF) ungetc(c, stream); */
   return result;
 }