From 514937662e5fd6cb1b30350da852e2d470e219f4 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 25 Mar 2014 13:26:42 +0900 Subject: [PATCH] renamed symbols must be always greater than or equal to 0 --- src/macro.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/macro.c b/src/macro.c index e6f5db1d..014cc024 100644 --- a/src/macro.c +++ b/src/macro.c @@ -119,14 +119,10 @@ pic_import(pic_state *pic, pic_value spec) for (xh_begin(lib->exports, &it); ! xh_isend(&it); xh_next(&it)) { #if DEBUG - if (it.e->val >= 0) { - printf("* importing %s as %s\n", - pic_symbol_name(pic, (long)it.e->key), - pic_symbol_name(pic, it.e->val)); - } - else { - printf("* importing %s\n", pic_symbol_name(pic, (long)it.e->key)); - } + assert(it.e->val >= 0); + printf("* importing %s as %s\n", + pic_symbol_name(pic, (long)it.e->key), + pic_symbol_name(pic, it.e->val)); #endif xh_put_int(pic->lib->senv->name, (long)it.e->key, it.e->val);