jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

interface_format_version bump ! 10....

Browse source
This commit is contained in:
Léonard Gérard 2010-07-14 00:55:40 +02:00
parent 1c2929078d
commit ce4f1916da
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/global/signature.ml
View file

@ -12,7 +12,7 @@ open Types
(** Warning: Whenever these types are modified,
interface_format_version should be incremented. *)
let interface_format_version = "9"
let interface_format_version = "10"
(** Node argument *)
type arg = { a_name : name option; a_type : ty }
@ -57,10 +57,8 @@ let mk_const_def name ty value =
let rec field_assoc f = function
| [] -> raise Not_found
| { f_name = n; f_type = ty }::l ->
if shortname f = n then
ty
else
field_assoc f l
if shortname f = n then ty
else field_assoc f l
open Format