Commit 0ddf2252bb757728e554c850f7b9e3e95faebb43 - Lanthorn

Tiny simplification. Chris Pressey 2 years ago

1 changed file(s) with 1 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

-2

src/Language/Lanthorn/LetRec2.hs less more

55	55	case binding of
56	56	(name, (Fun formals body)) ->
57	57	let
58		name' = name
59	58	actuals = map (ValueOf) (formals ++ (map (\x -> wrapperNameOuter $ fst x) injecteds))
60	59	expr' = Fun formals (Apply (wrapperNameOuter name) actuals)
61	60	in
62		acc ++ [(name', expr')]
	61	acc ++ [(name, expr')]
63	62	other ->
64	63	acc