diff --git a/runtime.c b/runtime.c
index 5d55f005..ebe64031 100644
--- a/runtime.c
+++ b/runtime.c
@@ -50,7 +50,6 @@ object gc_ans[NUM_GC_ANS];    /* argument for GC continuation closure. */
 int gc_num_ans;
 jmp_buf jmp_main; /* Where to jump to. */
 
-//static object test_exp1, test_exp2; /* Expressions used within test. */
 object Cyc_global_variables = nil;
 
 static symbol_type __EOF = {eof_tag, "", nil}; // symbol_type in lieu of custom type
@@ -209,8 +208,6 @@ void Cyc_rt_raise_msg(const char *err) {
 }
 /* END exception handler */
 
-object terpri() {printf("\n"); return nil;}
-
 int equal(x, y) object x, y;
 {
     if (nullp(x)) return nullp(y);
@@ -496,8 +493,6 @@ object Cyc_write_char(object c, object port)
   return quote_void;
 }
 
-/* Some of these non-consing functions have been optimized from CPS. */
-
 // TODO: should not be a predicate, may end up moving these to Scheme code
 object memberp(x,l) object x; list l;
 {for (; !nullp(l); l = cdr(l)) if (boolean_f != equalp(x,car(l))) return boolean_t;
diff --git a/runtime.h b/runtime.h
index cb5fd961..fc94fee9 100644
--- a/runtime.h
+++ b/runtime.h
@@ -68,7 +68,6 @@ string_type Cyc_string_append(int argc, object str1, ...);
 string_type Cyc_string_append_va_list(int, object, va_list);
 list mcons(object,object);
 cvar_type *mcvar(object *var);
-object terpri(void);
 object Cyc_display(object, FILE *port);
 object dispatch_display_va(int argc, object clo, object cont, object x, ...);
 object Cyc_display_va(int argc, object x, ...);