tisp

commit 0a53289a889582b76931ab064a6451cd538bce4b
parent 61dc47edaec9b1cbe4b06f4e602488b183671470
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Thu, 28 Feb 2019 20:00:07 -0800

Fix numerator and denominator names

Diffstat:
tibs/math.c
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/tibs/math.c b/tibs/math.c
@@ -34,8 +34,8 @@ static Val
 prim_numerator(Env env, Val args)
 {
 	Val a;
-	tsp_arg_num(args, "num", 1);
-	EVAL_CHECK(a, car(args), "num", RATIONAL);
+	tsp_arg_num(args, "numerator", 1);
+	EVAL_CHECK(a, car(args), "numerator", RATIONAL);
 	return mk_int(num(a));
 }
 
@@ -43,8 +43,8 @@ static Val
 prim_denominator(Env env, Val args)
 {
 	Val a;
-	tsp_arg_num(args, "den", 1);
-	EVAL_CHECK(a, car(args), "den", RATIONAL);
+	tsp_arg_num(args, "denominator", 1);
+	EVAL_CHECK(a, car(args), "denominator", RATIONAL);
 	return mk_int(den(a));
 }