From e640d29522bd832f88874a6c955e14031481e380 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 17 Jun 2017 09:01:24 -0700 Subject: ash: fix wrong function name in diagnostics. * arith.c (ash): Refer to ash in error messages rather than ashift. --- arith.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/arith.c b/arith.c index 537c1a0d..93341d3c 100644 --- a/arith.c +++ b/arith.c @@ -2473,13 +2473,13 @@ val ash(val a, val bits) } bad: - uw_throwf(error_s, lit("ashift: operation failed on ~s"), a, nao); + uw_throwf(error_s, lit("ash: operation failed on ~s"), a, nao); bad2: - uw_throwf(error_s, lit("ashift: bits value ~s is not a fixnum"), bits, nao); + uw_throwf(error_s, lit("ash: bits value ~s is not a fixnum"), bits, nao); bad3: - uw_throwf(error_s, lit("ashift: non-integral operand ~s"), a, nao); + uw_throwf(error_s, lit("ash: non-integral operand ~s"), a, nao); } val bit(val a, val bit) -- cgit v1.2.3