diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2013-10-11 18:30:54 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:53 +0200 |
commit | 57bee17f928fc67a599d2116edb42a59eeb21477 (patch) | |
tree | f8e1446f5869de08be1dc20c104d61d0e47ce57d /plugins/syntax/ascii_syntax.ml | |
parent | a4043608f704f026de7eb5167a109ca48e00c221 (diff) |
Rework handling of universes on top of the STM, allowing for delayed
computation in case of non-polymorphic proofs. Also fix plugins after
forgotten merge conflicts. Still does not compile everything.
Diffstat (limited to 'plugins/syntax/ascii_syntax.ml')
-rw-r--r-- | plugins/syntax/ascii_syntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/syntax/ascii_syntax.ml b/plugins/syntax/ascii_syntax.ml index 5c060c3d6..67c9dd0a3 100644 --- a/plugins/syntax/ascii_syntax.ml +++ b/plugins/syntax/ascii_syntax.ml @@ -37,7 +37,7 @@ let interp_ascii dloc p = let rec aux n p = if Int.equal n 0 then [] else let mp = p mod 2 in - GRef (dloc,if Int.equal mp 0 then glob_false else glob_true,None) + GRef (dloc,(if Int.equal mp 0 then glob_false else glob_true),None) :: (aux (n-1) (p/2)) in GApp (dloc,GRef(dloc,force glob_Ascii,None), aux 8 p) |