car, cdr: self-identify in error message.

* lib.c (car, cdr): Type mismatch messages now identify
functions.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index c126cada..31351fba 100644
--- a/lib.c
+++ b/lib.c
@@ -393,7 +393,7 @@ val car(val cons)
       }
     }
   default:
-    type_mismatch(lit("~s is not a cons"), cons, nao);
+    type_mismatch(lit("car: ~s is not a cons"), cons, nao);
   }
 }
 
@@ -434,7 +434,7 @@ val cdr(val cons)
       }
     }
   default:
-    type_mismatch(lit("~s is not a cons"), cons, nao);
+    type_mismatch(lit("cdr: ~s is not a cons"), cons, nao);
   }
 }