Show More
@@ -85,9 +85,9 b'' | |||||
85 | (set-var args i :str arg))))) |
|
85 | (set-var args i :str arg))))) | |
86 |
|
86 | |||
87 | (defun get-result () |
|
87 | (defun get-result () | |
88 |
(if (not (equal "" (get-var |
|
88 | (if (not (equal "" (get-var "RESULT" 0 :str))) | |
89 |
(get-var |
|
89 | (get-var "RESULT" 0 :str) | |
90 |
(get-var |
|
90 | (get-var "RESULT" 0 :num))) | |
91 |
|
91 | |||
92 | (defun call-loc (name args) |
|
92 | (defun call-loc (name args) | |
93 | (with-frame |
|
93 | (with-frame |
General Comments 0
You need to be logged in to leave comments.
Login now