From 64113a77201f517301cfbc86062be3752b122a9a Mon Sep 17 00:00:00 2001 From: paladin-t Date: Wed, 6 Jan 2016 17:00:30 +0800 Subject: [PATCH] *improved IS statement. --- HISTORY | 3 ++- core/my_basic.c | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/HISTORY b/HISTORY index 62259e3..f11688f 100755 --- a/HISTORY +++ b/HISTORY @@ -1,6 +1,7 @@ Jan. 6 2016 -Added support to use TYPE("NUMBER") to represent both integer and real Developing lambda, added cloning support +Added support to use TYPE("NUMBER") to represent both integer and real +Improved IS statement Jan. 5 2016 Developing lambda, added data structure diff --git a/core/my_basic.c b/core/my_basic.c index e3e37c2..f1098cf 100755 --- a/core/my_basic.c +++ b/core/my_basic.c @@ -10219,6 +10219,8 @@ int _core_is(mb_interpreter_t* s, void** l) { scd = (_object_t*)((_tuple3_t*)*l)->e2; val = (_object_t*)((_tuple3_t*)*l)->e3; + if(fst && fst->type == _DT_VAR) fst = fst->data.variable->data; + if(scd && scd->type == _DT_VAR) scd = scd->data.variable->data; if(!fst || !scd) { _handle_error_on_obj(s, SE_RN_SYNTAX, 0, TON(l), MB_FUNC_ERR, _exit, result); }