comments

Makefile

@@ -1,3 +1,5 @@
+# GNU Makefile
+
 CC = gcc
 
 CFLAGS = -std=c89 -pedantic-errors -Wall -Wextra -Werror \

eval.c

@@ -1,8 +1,7 @@
 #include "scm.h"
 
-/* Until we have lists and symbols, just echo. The
- * result of this echoing is the repl application
- * is a simple pretty printer.
+/* Until we have lists and symbols, just echo. The result of
+ * echoing is the repl application is a pretty printer.
  */
 scm_object scm_eval(scm_object expression) {
     return expression;

read.c

@@ -46,7 +46,7 @@ static scm_object scm_read_number(FILE *in) {
          * as some other code in this reader will be waiting
          * for that character to indicate the end of a list.
          *
-         * Check for EOF in case scm_is_delimiter allows it 
+         * Check for EOF in case scm_is_delimiter allows it
          * as a delimiter. If trying to push EOF back on the
          * stream we will not know if an error has occured.
          */

scm.h

@@ -10,20 +10,18 @@ void scm_fatal(char *fmt, ...);
 
 /************************ model.c *************************/
 
-/* Assume scm_int is large enough to hold any
- * scm_object fixnum.
+/* scm_int must be large enough to hold any Scheme fixnum.
  */
 typedef long scm_int;
 
-/* A scm_object can be any of Scheme's many types:
- * the empty list, boolean, number, symbol,
- * pair, vector, string, port, etc. For now we only have
- * fixnums which will fit in a long.
+/* A scm_object can be any of Scheme's many types: boolean,
+ * the empty list, number, symbol, pair, vector, etc.
+ * For now we only have fixnums which will fit in a long.
  */
 typedef long scm_object;
 
 /* Trival conversions to and from fixnum since they are
- * currently the only type now.
+ * the only type for now.
  */
 #define scm_fixnum_make(val) ((scm_object)(val))
 #define scm_fixnum_value(object) ((scm_int)(object))

util.c

@@ -6,9 +6,9 @@
 /* scm_fatal is borrowed from K&R2e page 174 where it is
  * called "error".
  *
- * Purposely ignoring return values of fprintf and
+ * Purposely ignoring the return values of fprintf and
  * vfprintf because we want to continue to the exit
- * even if there is an error printing.
+ * even if a printing error occurs.
  */
 void scm_fatal(char *fmt, ...) {
     va_list args;