File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
cx_clips_executive/src/cx_clips_executive/clips Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 1212 (executive-init)
1313 =>
1414 (do-for-all-facts ((? cf-spec confval) (? cf confval))
15- (and (eq ? cf-spec :path "/clips-executive /spec")
16- (str-prefix (str-cat "/clips-executive /specs/" ? cf-spec :value "/parameters/") ? cf :path))
17- (bind ? prefix (str-cat "/clips-executive /specs/" ? cf-spec :value "/parameters/"))
15+ (and (eq ? cf-spec :path "/clips_executive /spec")
16+ (str-prefix (str-cat "/clips_executive /specs/" ? cf-spec :value "/parameters/") ? cf :path))
17+ (bind ? prefix (str-cat "/clips_executive /specs/" ? cf-spec :value "/parameters/"))
1818 (bind ? name (sub-string (str-length ? prefix ) (str-length ? cf :path) ? cf :path))
1919 (bind ? id (str-cat "/config" ? name ))
2020 (assert (wm-fact (id ? id ) (type ? cf :type ) (value ? cf :value) (is-list ? cf :is-list)
You can’t perform that action at this time.
0 commit comments