tisp

commit 368faf2c46732d2297f06dc4aeecc53864a92e5a
parent 29258977092664a4112790dda16cc6f655687917
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Mon, 27 May 2019 13:27:42 -0700

Fix power symbol creation

Diffstat:
tibs/math.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tibs/math.c b/tibs/math.c
@@ -183,7 +183,7 @@ prim_pow(Env env, Val args)
 	if (bnum == (int)bnum && bden == (int)bden &&
 	    b->t & NUMBER && p->t & NUMBER)
 		return mk_num(b->t, p->t, 0)(bnum, bden);
-	return mk_pair(mk_sym(env, "pow"), mk_pair(b, mk_pair(p, env->nil)));
+	return mk_pair(mk_sym(env, "^"), mk_pair(b, mk_pair(p, env->nil)));
 }
 
 #define PRIM_COMPARE(NAME, OP)                                        \