@@ -118,41 +118,47 @@ function pr(param) {
118118}
119119
120120function map ( f , l ) {
121- return CamlinternalLazy . from_fun ( ( function ( param ) {
122- var match = CamlinternalLazy . force ( l ) ;
123- return /* Cons */ [
124- Curry . _1 ( f , match [ 0 ] ) ,
125- map ( f , match [ 1 ] )
126- ] ;
127- } ) ) ;
121+ return {
122+ tag : 246 ,
123+ _0 : ( function ( param ) {
124+ var match = CamlinternalLazy . force ( l ) ;
125+ return /* Cons */ [
126+ Curry . _1 ( f , match [ 0 ] ) ,
127+ map ( f , match [ 1 ] )
128+ ] ;
129+ } )
130+ } ;
128131}
129132
130133function merge ( cmp , l1 , l2 ) {
131- return CamlinternalLazy . from_fun ( ( function ( param ) {
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- } ) ) ;
134+ return {
135+ tag : 246 ,
136+ _0 : ( function ( param ) {
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+ } ;
156162}
157163
158164function iter_interval ( f , _l , _param ) {
@@ -177,24 +183,44 @@ function iter_interval(f, _l, _param) {
177183 } ;
178184}
179185
180- var hamming = CamlinternalLazy . from_fun ( ( function ( param ) {
181- return /* Cons */ [
182- nn1 ,
183- merge ( cmp , ham2 , merge ( cmp , ham3 , ham5 ) )
184- ] ;
185- } ) ) ;
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+ _0 : ( function ( param ) {
197+ return /* Cons */ [
198+ nn1 ,
199+ merge ( cmp , ham2 , merge ( cmp , ham3 , ham5 ) )
200+ ] ;
201+ } )
202+ } ) ;
186203
187- var ham2 = CamlinternalLazy . from_fun ( ( function ( param ) {
188- return CamlinternalLazy . force ( map ( x2 , hamming ) ) ;
189- } ) ) ;
204+ Caml_obj . caml_update_dummy ( ham2 , {
205+ tag : 246 ,
206+ _0 : ( function ( param ) {
207+ return CamlinternalLazy . force ( map ( x2 , hamming ) ) ;
208+ } )
209+ } ) ;
190210
191- var ham3 = CamlinternalLazy . from_fun ( ( function ( param ) {
192- return CamlinternalLazy . force ( map ( x3 , hamming ) ) ;
193- } ) ) ;
211+ Caml_obj . caml_update_dummy ( ham3 , {
212+ tag : 246 ,
213+ _0 : ( function ( param ) {
214+ return CamlinternalLazy . force ( map ( x3 , hamming ) ) ;
215+ } )
216+ } ) ;
194217
195- var ham5 = CamlinternalLazy . from_fun ( ( function ( param ) {
196- return CamlinternalLazy . force ( map ( x5 , hamming ) ) ;
197- } ) ) ;
218+ Caml_obj . caml_update_dummy ( ham5 , {
219+ tag : 246 ,
220+ _0 : ( function ( param ) {
221+ return CamlinternalLazy . force ( map ( x5 , hamming ) ) ;
222+ } )
223+ } ) ;
198224
199225iter_interval ( pr , hamming , /* tuple */ [
200226 88000 ,
0 commit comments