Skip to content

Commit d3ba459

Browse files
authored
fixes core:eff theory (#1338)
This theory is used for debugging and introspection purposes. The bug was in the denotation of `branch` and `repeat` operations, which were denoted as empty denotations if any of its effects are empty. It is now corrected.
1 parent 0c615b0 commit d3ba459

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

plugins/primus_lisp/primus_lisp_semantic_primitives.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -836,7 +836,7 @@ module CST : Theory.Core = struct
836836
x >>= fun v ->
837837
let s = esort v in
838838
match KB.Value.get eslot v with
839-
| None -> ret (Theory.Effect.empty s)
839+
| None -> f s (list [])
840840
| Some x -> f s x
841841

842842

0 commit comments

Comments
 (0)