git @ Cat's Eye Technologies Lanthorn / 5ed079e
Note the things in the source that will need to be fixed. Chris Pressey 6 months ago
1 changed file(s) with 3 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
3232 createEnrichedBindings ((name, (Fun formals body)):rest) injecteds =
3333 let
3434 name' = wrapperNameOuter name
35 -- FIXME we need to create one of these for each injected, using different base formals --
36 -- those of the injected, not of the current functions!
3537 formals' = formals ++ (map (wrapperNameInner) injecteds)
3638 body' = (LetStar (createLocalBindings injecteds injecteds formals) body)
3739 expr' = (Fun formals' body')
4143 createEnrichedBindings (binding:rest) injecteds =
4244 (binding:createEnrichedBindings rest injecteds)
4345
46 -- FIXME we need to attach a list of formals to every injected
4447 createLocalBindings [] _ _ = []
4548 createLocalBindings (injected:injecteds) allInjecteds formals =
4649 let