rename print function

Author: carld

lispkit.h

@@ -72,7 +72,7 @@ Object * execute(Object *fn, Object *args);
 const char * intern_string(char *string);
 void intern_free(void);
 
-void print(Object *);
+void exp_print(Object *);
 const char * type_str(int);
 
 struct Token {

main.c

@@ -82,7 +82,7 @@ main(int argc, char *argv[], char *envp[])
   args   = get_exp_list(fp[1]);
   result = execute(fn, args);
 
-  print(result);
+  exp_print(result);
   printf("\n");
 
   fclose(fp[0]);

print.c

@@ -39,7 +39,7 @@ int is_null(Object *obj)
 }
 
 void 
-print(Object * obj)
+exp_print(Object * obj)
 {
   if (!obj || obj == _nil )
     return;
@@ -53,18 +53,18 @@ print(Object * obj)
         && gc_header(cdr(obj))->type != CONS 
         && !is_null(cdr(obj))
 	) {
-      print(car(obj));
+      exp_print(car(obj));
       printf(". ");
-      print(cdr(obj));
+      exp_print(cdr(obj));
     } else {
       if (gc_header(car(obj))->type == CONS)
 	printf("( ");
-      print(car(obj));
+      exp_print(car(obj));
       if (gc_header(car(obj))->type == CONS)
 	printf(") ");
 
       if (!is_null(cdr(obj))) {
-     	print(cdr(obj));
+     	exp_print(cdr(obj));
       }
     }
   } else {