##// END OF EJS Templates
Fixed saves...
naryl -
r26:fd5a11c5 default
parent child Browse files
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 result 0 :str)))
88 (if (not (equal "" (get-var "RESULT" 0 :str)))
89 (get-var result 0 :str)
89 (get-var "RESULT" 0 :str)
90 (get-var result 0 :num)))
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
@@ -33,5 +33,6 b''
33 ;; lib
33 ;; lib
34 *number parse-int
34 *number parse-int
35 to-upper-case concat
35 to-upper-case concat
36 click target current-target files index-of
36 click target current-target files index-of result
37 decode-u-r-i-component splice
37 )
38 )
General Comments 0
You need to be logged in to leave comments. Login now