##// END OF EJS Templates
Fix
naryl -
r67:d0477458 default
parent child Browse files
Show More
@@ -86,20 +86,6 b''
86
86
87 ;;; 10dynamic
87 ;;; 10dynamic
88
88
89 (defpsmacro dynamic (block &rest args)
90 `(progn
91 (when (stringp ,block)
92 (api:report-error "DYNAMIC can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNAMIC."))
93 (api:with-call-args ,args nil
94 (funcall ,block))))
95
96 (defpsmacro dyneval (block &rest args)
97 `(progn
98 (when (stringp ,block)
99 (api:report-error "DYNEVAL can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNEVAL."))
100 (api:with-call-args ,args t
101 (funcall ,block))))
102
103 ;;; 11main
89 ;;; 11main
104
90
105 (defpsmacro desc (s)
91 (defpsmacro desc (s)
@@ -116,6 +116,18 b''
116
116
117 ;;; 10dynamic
117 ;;; 10dynamic
118
118
119 (defun dynamic (block &rest args)
120 (when (stringp block)
121 (api:report-error "DYNAMIC can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNAMIC."))
122 (api:with-call-args args nil
123 (funcall block)))
124
125 (defun dyneval (block &rest args)
126 (when (stringp block)
127 (api:report-error "DYNEVAL can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNEVAL."))
128 (api:with-call-args args t
129 (funcall block)))
130
119 ;;; 11main
131 ;;; 11main
120
132
121 (defun main-p (s)
133 (defun main-p (s)
@@ -182,9 +194,10 b''
182 (return-from selact (@ v :name)))))
194 (return-from selact (@ v :name)))))
183
195
184 (defun curacts ()
196 (defun curacts ()
185 (let ((acts (api-call copy-obj *acts)))
197 (let ((acts (chain *object (assign (create) *acts))))
186 (lambda ()
198 (lambda ()
187 (setf *acts acts)
199 (setf *acts acts)
200 (api:update-acts)
188 (void))))
201 (void))))
189
202
190 ;;; 15objs
203 ;;; 15objs
General Comments 0
You need to be logged in to leave comments. Login now