From 33259fb8161f4ec8540a4e54830e46850394e38a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 13 Dec 2018 06:24:50 -0800 Subject: plusp: wrong name in error message. * arith.c (plusp): plusp wrongly reports itself as zerop. --- arith.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/arith.c b/arith.c index 0f72bf24..1a8c44da 100644 --- a/arith.c +++ b/arith.c @@ -1559,7 +1559,7 @@ val zerop(val num) val plusp(val num) { - val self = lit("zerop"); + val self = lit("plusp"); switch (type(num)) { case NUM: -- cgit v1.2.3