diff options
Diffstat (limited to 'bytecomp/lambda.ml')
| -rw-r--r-- | bytecomp/lambda.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bytecomp/lambda.ml b/bytecomp/lambda.ml index 8b47cd4f2..b66378c9e 100644 --- a/bytecomp/lambda.ml +++ b/bytecomp/lambda.ml @@ -28,6 +28,7 @@ type primitive = | Psetfield of int * bool | Pfloatfield of int | Psetfloatfield of int + | Pduprecord of Types.record_representation * int (* External call *) | Pccall of Primitive.description (* Exceptions *) @@ -251,7 +252,7 @@ let rec iter f = function | Lprim(p, args) -> List.iter f args | Lswitch(arg, sw) -> - f arg; + f arg; List.iter (fun (key, case) -> f case) sw.sw_consts; List.iter (fun (key, case) -> f case) sw.sw_blocks; begin match sw.sw_failaction with |