@@ -118,47 +118,41 @@ function pr(param) {
118
118
}
119
119
120
120
function map ( f , l ) {
121
- return {
122
- tag : 246 ,
123
- value : ( function ( ) {
124
- var match = CamlinternalLazy . force ( l ) ;
125
- return /* Cons */ [
126
- Curry . _1 ( f , match [ 0 ] ) ,
127
- map ( f , match [ 1 ] )
128
- ] ;
129
- } )
130
- } ;
121
+ return CamlinternalLazy . from_fun ( ( function ( ) {
122
+ var match = CamlinternalLazy . force ( l ) ;
123
+ return /* Cons */ [
124
+ Curry . _1 ( f , match [ 0 ] ) ,
125
+ map ( f , match [ 1 ] )
126
+ ] ;
127
+ } ) ) ;
131
128
}
132
129
133
130
function merge ( cmp , l1 , l2 ) {
134
- return {
135
- tag : 246 ,
136
- value : ( function ( ) {
137
- var match = CamlinternalLazy . force ( l1 ) ;
138
- var match$1 = CamlinternalLazy . force ( l2 ) ;
139
- var ll2 = match$1 [ 1 ] ;
140
- var x2 = match$1 [ 0 ] ;
141
- var ll1 = match [ 1 ] ;
142
- var x1 = match [ 0 ] ;
143
- var c = Curry . _2 ( cmp , x1 , x2 ) ;
144
- if ( c === 0 ) {
145
- return /* Cons */ [
146
- x1 ,
147
- merge ( cmp , ll1 , ll2 )
148
- ] ;
149
- } else if ( c < 0 ) {
150
- return /* Cons */ [
151
- x1 ,
152
- merge ( cmp , ll1 , l2 )
153
- ] ;
154
- } else {
155
- return /* Cons */ [
156
- x2 ,
157
- merge ( cmp , l1 , ll2 )
158
- ] ;
159
- }
160
- } )
161
- } ;
131
+ return CamlinternalLazy . from_fun ( ( function ( ) {
132
+ var match = CamlinternalLazy . force ( l1 ) ;
133
+ var match$1 = CamlinternalLazy . force ( l2 ) ;
134
+ var ll2 = match$1 [ 1 ] ;
135
+ var x2 = match$1 [ 0 ] ;
136
+ var ll1 = match [ 1 ] ;
137
+ var x1 = match [ 0 ] ;
138
+ var c = Curry . _2 ( cmp , x1 , x2 ) ;
139
+ if ( c === 0 ) {
140
+ return /* Cons */ [
141
+ x1 ,
142
+ merge ( cmp , ll1 , ll2 )
143
+ ] ;
144
+ } else if ( c < 0 ) {
145
+ return /* Cons */ [
146
+ x1 ,
147
+ merge ( cmp , ll1 , l2 )
148
+ ] ;
149
+ } else {
150
+ return /* Cons */ [
151
+ x2 ,
152
+ merge ( cmp , l1 , ll2 )
153
+ ] ;
154
+ }
155
+ } ) ) ;
162
156
}
163
157
164
158
function iter_interval ( f , _l , _param ) {
@@ -183,44 +177,24 @@ function iter_interval(f, _l, _param) {
183
177
} ;
184
178
}
185
179
186
- var hamming = { } ;
187
-
188
- var ham2 = { } ;
189
-
190
- var ham3 = { } ;
191
-
192
- var ham5 = { } ;
193
-
194
- Caml_obj . caml_update_dummy ( hamming , {
195
- tag : 246 ,
196
- value : ( function ( ) {
197
- return /* Cons */ [
198
- nn1 ,
199
- merge ( cmp , ham2 , merge ( cmp , ham3 , ham5 ) )
200
- ] ;
201
- } )
202
- } ) ;
180
+ var hamming = CamlinternalLazy . from_fun ( ( function ( ) {
181
+ return /* Cons */ [
182
+ nn1 ,
183
+ merge ( cmp , ham2 , merge ( cmp , ham3 , ham5 ) )
184
+ ] ;
185
+ } ) ) ;
203
186
204
- Caml_obj . caml_update_dummy ( ham2 , {
205
- tag : 246 ,
206
- value : ( function ( ) {
207
- return CamlinternalLazy . force ( map ( x2 , hamming ) ) ;
208
- } )
209
- } ) ;
187
+ var ham2 = CamlinternalLazy . from_fun ( ( function ( ) {
188
+ return CamlinternalLazy . force ( map ( x2 , hamming ) ) ;
189
+ } ) ) ;
210
190
211
- Caml_obj . caml_update_dummy ( ham3 , {
212
- tag : 246 ,
213
- value : ( function ( ) {
214
- return CamlinternalLazy . force ( map ( x3 , hamming ) ) ;
215
- } )
216
- } ) ;
191
+ var ham3 = CamlinternalLazy . from_fun ( ( function ( ) {
192
+ return CamlinternalLazy . force ( map ( x3 , hamming ) ) ;
193
+ } ) ) ;
217
194
218
- Caml_obj . caml_update_dummy ( ham5 , {
219
- tag : 246 ,
220
- value : ( function ( ) {
221
- return CamlinternalLazy . force ( map ( x5 , hamming ) ) ;
222
- } )
223
- } ) ;
195
+ var ham5 = CamlinternalLazy . from_fun ( ( function ( ) {
196
+ return CamlinternalLazy . force ( map ( x5 , hamming ) ) ;
197
+ } ) ) ;
224
198
225
199
iter_interval ( pr , hamming , /* tuple */ [
226
200
88000 ,
0 commit comments