quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*improved IS statement.

Browse Source
This commit is contained in:
paladin-t 2016-01-06 17:00:30 +08:00
parent ec695b5d5f
commit 64113a7720
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
HISTORY
View File

@ -1,6 +1,7 @@
Jan. 6 2016 Jan. 6 2016
Added support to use TYPE("NUMBER") to represent both integer and real
Developing lambda, added cloning support Developing lambda, added cloning support
Added support to use TYPE("NUMBER") to represent both integer and real
Improved IS statement
Jan. 5 2016 Jan. 5 2016
Developing lambda, added data structure Developing lambda, added data structure

2
core/my_basic.c
View File

@ -10219,6 +10219,8 @@ int _core_is(mb_interpreter_t* s, void** l) {
scd = (_object_t*)((_tuple3_t*)*l)->e2; scd = (_object_t*)((_tuple3_t*)*l)->e2;
val = (_object_t*)((_tuple3_t*)*l)->e3; 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) { if(!fst || !scd) {
_handle_error_on_obj(s, SE_RN_SYNTAX, 0, TON(l), MB_FUNC_ERR, _exit, result); _handle_error_on_obj(s, SE_RN_SYNTAX, 0, TON(l), MB_FUNC_ERR, _exit, result);
} }