simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

allow to build Or[], returning false

Browse source
This commit is contained in:
Simon Cruanes 2014-03-06 17:35:24 +01:00
parent d81b6bd2bc
commit 05f8d0d873
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
smt/smt.ml
View file

@ -459,7 +459,7 @@ end
let ( @ ) = `Use_rev_append_instead (* prevent use of non-tailrec append *) let ( @ ) = `Use_rev_append_instead (* prevent use of non-tailrec append *)
let make_or = function let make_or = function
| [] -> assert false | [] -> f_false
| [a] -> a | [a] -> a
| l -> Comb (Or, l) | l -> Comb (Or, l)