From 7f8a18c9b04782af361dc4c28d480b76977e0927 Mon Sep 17 00:00:00 2001
From: Wang Renxin <hellotony521@qq.com>
Date: Thu, 17 Sep 2015 15:52:09 +0800
Subject: [PATCH] *supports sub routine in PRINT.

---
 core/my_basic.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/core/my_basic.c b/core/my_basic.c
index 15cedab..5980ac7 100755
--- a/core/my_basic.c
+++ b/core/my_basic.c
@@ -7116,7 +7116,8 @@ int _std_print(mb_interpreter_t* s, void** l) {
 		case _DT_STRING: /* Fall through */
 		case _DT_VAR: /* 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);
 			if(val_ptr->type == _DT_NIL) {
 				_get_printer(s)(MB_NIL);