File tree Expand file tree Collapse file tree 1 file changed +21
-13
lines changed
Expand file tree Collapse file tree 1 file changed +21
-13
lines changed Original file line number Diff line number Diff line change @@ -301,19 +301,27 @@ let tests = (
301301 "single step: beta reduction" ,
302302 ` Quick ,
303303 () => {
304- let exp = Exp . fresh(Ap (
305- Forward ,
306- Exp . fresh(Fun (
307- Pat . fresh(Var ("x" )),
308- Exp . fresh(BinOp (Int (Plus ),
309- Exp . fresh(Var ("x" )),
310- Exp . fresh(Atom (Int (Bigint . of_int(1 )))),
311- )),
312- None ,
313- None
314- )),
315- Exp . fresh(Atom (Int (Bigint . of_int(5 )))),
316- ))
304+ let exp =
305+ Exp . fresh(
306+ Ap (
307+ Forward ,
308+ Exp . fresh(
309+ Fun (
310+ Pat . fresh(Var ("x" )),
311+ Exp . fresh(
312+ BinOp (
313+ Int (Plus ),
314+ Exp . fresh(Var ("x" )),
315+ Exp . fresh(Atom (Int (Bigint . of_int(1 )))),
316+ ),
317+ ),
318+ None ,
319+ None ,
320+ ),
321+ ),
322+ Exp . fresh(Atom (Int (Bigint . of_int(5 )))),
323+ ),
324+ );
317325 let elab = elaborate(exp);
318326 let result =
319327 run_single_step(
You can’t perform that action at this time.
0 commit comments