@@ -25,20 +25,20 @@ function appf(g, x) {
25
25
}
26
26
catch ( raw_exn ) {
27
27
var exn = Caml_js_exceptions . internalToOCamlException ( raw_exn ) ;
28
- if ( exn . CamlExt === Local ) {
28
+ if ( exn . CamlExt . CamlId === Local . CamlId ) {
29
29
return 3 ;
30
30
}
31
- if ( exn . CamlExt === Caml_builtin_exceptions . not_found ) {
31
+ if ( exn . CamlExt . CamlId === Caml_builtin_exceptions . not_found . CamlId ) {
32
32
return 2 ;
33
33
}
34
- if ( exn . CamlExt === A ) {
34
+ if ( exn . CamlExt . CamlId === A . CamlId ) {
35
35
exn . _1 !== 32 ;
36
36
return 3 ;
37
37
}
38
- if ( exn . CamlExt !== B ) {
39
- if ( exn . CamlExt === C ) {
38
+ if ( exn . CamlExt . CamlId !== B . CamlId ) {
39
+ if ( exn . CamlExt . CamlId === C . CamlId ) {
40
40
return exn . _1 ;
41
- } else if ( exn . CamlExt === D ) {
41
+ } else if ( exn . CamlExt . CamlId === D . CamlId ) {
42
42
return exn . _1 [ 0 ] ;
43
43
} else {
44
44
return 4 ;
70
70
}
71
71
catch ( raw_x ) {
72
72
var x = Caml_js_exceptions . internalToOCamlException ( raw_x ) ;
73
- f = x . CamlExt === A ? x . _1 : 2 ;
73
+ f = x . CamlExt . CamlId === A . CamlId ? x . _1 : 2 ;
74
74
}
75
75
76
76
var ff ;
80
80
}
81
81
catch ( raw_x$1 ) {
82
82
var x$1 = Caml_js_exceptions . internalToOCamlException ( raw_x$1 ) ;
83
- ff = x$1 . CamlExt === A ? x$1 . _1 : 2 ;
83
+ ff = x$1 . CamlExt . CamlId === A . CamlId ? x$1 . _1 : 2 ;
84
84
}
85
85
86
86
var fff ;
90
90
}
91
91
catch ( raw_x$2 ) {
92
92
var x$2 = Caml_js_exceptions . internalToOCamlException ( raw_x$2 ) ;
93
- fff = x$2 . CamlExt === A ? x$2 . _1 : 2 ;
93
+ fff = x$2 . CamlExt . CamlId === A . CamlId ? x$2 . _1 : 2 ;
94
94
}
95
95
96
96
var a0 ;
@@ -100,7 +100,7 @@ try {
100
100
}
101
101
catch ( raw_x$3 ) {
102
102
var x$3 = Caml_js_exceptions . internalToOCamlException ( raw_x$3 ) ;
103
- if ( x$3 . CamlExt === A || x$3 . CamlExt === Js_exn . $$Error ) {
103
+ if ( x$3 . CamlExt . CamlId === A . CamlId || x$3 . CamlExt . CamlId === Js_exn . $$Error . CamlId ) {
104
104
a0 = x$3 . _1 ;
105
105
} else {
106
106
throw {
@@ -157,7 +157,7 @@ var suites = {
157
157
/* tuple */ [
158
158
"File \"exception_raise_test.ml\", line 116, characters 4-11" ,
159
159
( function ( param ) {
160
- if ( a1 . CamlExt === Js_exn . $$Error ) {
160
+ if ( a1 . CamlExt . CamlId === Js_exn . $$Error . CamlId ) {
161
161
return /* Eq */ Block . __ ( 0 , [
162
162
a1 . _1 ,
163
163
2
0 commit comments