Skip to content

Commit 63623cf

Browse files
committed
clause removal needs unreleased elpi version
1 parent 9ae1653 commit 63623cf

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

src/coq_elpi_builtins_synterp.ml

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -158,6 +158,7 @@ let accumulate_clauses ~clauses_for_later ~accumulate_to_db ~preprocess_clause ~
158158
let clauses scope =
159159
clauses |> CList.rev_map (fun (name,graft,clause) ->
160160
let vars, clause = preprocess_clause ~depth clause in
161+
let graft = Option.map (function `Remove, _ -> nYI "clause removal" | ((`Replace | `Before | `After), _) as x -> x) graft in
161162
let clause = U.clause_of_term ?name ?graft ~depth loc clause in
162163
(dbname,clause,vars,scope)) in
163164
let local = (options : options).local = Some true in

0 commit comments

Comments
 (0)