Skip to content

Commit f4a5594

Browse files
committed
cx: fix conval to wm translation
1 parent 8d51820 commit f4a5594

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

cx_clips_executive/src/cx_clips_executive/clips/wm-config.clp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -12,9 +12,9 @@
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)

0 commit comments

Comments
 (0)