summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-08-09 06:36:18 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-08-09 06:36:18 -0700
commit6b3cb1011e70a9a19fa2ccbfc787fd801f93e350 (patch)
tree6de6cc42a0f75d7314ca8da0b9f95ed4c62e32fd
parenta5e69db365a98857ac2594590614a981d5f9ae74 (diff)
downloadtxr-6b3cb1011e70a9a19fa2ccbfc787fd801f93e350.tar.gz
txr-6b3cb1011e70a9a19fa2ccbfc787fd801f93e350.tar.bz2
txr-6b3cb1011e70a9a19fa2ccbfc787fd801f93e350.zip
reverse: bugfix: garbage object in error message.
* lib.c (reverse): pointer to the C function in is being used as a value; the correct expression is seq_in.
-rw-r--r--lib.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index f08c7949..932a3f07 100644
--- a/lib.c
+++ b/lib.c
@@ -1328,7 +1328,7 @@ val reverse(val seq_in)
return obj;
}
default:
- uw_throwf(error_s, lit("reverse: cannot reverse ~s"), in, nao);
+ uw_throwf(error_s, lit("reverse: cannot reverse ~s"), seq_in, nao);
}
}