From 63c6d749f1c8185f4ee88737cb5f53bfb181ee03 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 5 Jan 2018 14:34:51 -0800 Subject: car, cdr: self-identify in error message. * lib.c (car, cdr): Type mismatch messages now identify functions. --- lib.c | 4 ++-- 1 file 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); } } -- cgit v1.2.3