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

*supports sub routine in PRINT.

Browse Source
This commit is contained in:
Wang Renxin 2015-09-17 15:52:09 +08:00
parent 987d0a2a81
commit 7f8a18c9b0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/my_basic.c
View File

@ -7116,7 +7116,8 @@ int _std_print(mb_interpreter_t* s, void** l) {
case _DT_STRING: /* Fall through */ case _DT_STRING: /* Fall through */
case _DT_VAR: /* Fall through */ case _DT_VAR: /* Fall through */
case _DT_ARRAY: /* Fall through */ case _DT_ARRAY: /* Fall through */
case _DT_FUNC: case _DT_FUNC: /* Fall through */
case _DT_ROUTINE:
result = _calc_expression(s, &ast, &val_ptr); result = _calc_expression(s, &ast, &val_ptr);
if(val_ptr->type == _DT_NIL) { if(val_ptr->type == _DT_NIL) {
_get_printer(s)(MB_NIL); _get_printer(s)(MB_NIL);