From f203e75b8329f2130d4aa6d8da40452b28aec2bc Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 11 May 2018 15:26:56 -0400 Subject: [PATCH] Fix typo --- runtime.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/runtime.c b/runtime.c index 33a0406f..ebe42b64 100644 --- a/runtime.c +++ b/runtime.c @@ -3089,7 +3089,7 @@ object FUNC_OP(void *data, common_type *x, object y) { \ } else if (tx == integer_tag && ty == complex_num_tag) { \ x->complex_num_t.hdr.mark = gc_color_red; \ x->complex_num_t.hdr.grayed = 0; \ - x->complex_num_t.tag = double_tag; \ + x->complex_num_t.tag = complex_num_tag; \ x->complex_num_t.value = x->integer_t.value OP ((complex_num_type *)y)->value; \ } else if (tx == bignum_tag && ty == complex_num_tag) { \ double d = mp_get_double(&(x->bignum_t.bn)); \ @@ -3498,7 +3498,7 @@ object Cyc_div_op(void *data, common_type * x, object y) } else if (tx == integer_tag && ty == complex_num_tag) { x->complex_num_t.hdr.mark = gc_color_red; x->complex_num_t.hdr.grayed = 0; - x->complex_num_t.tag = double_tag; + x->complex_num_t.tag = complex_num_tag; x->complex_num_t.value = x->integer_t.value / ((complex_num_type *)y)->value; } else if (tx == bignum_tag && ty == complex_num_tag) { double d = mp_get_double(&(x->bignum_t.bn));