Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let evalFuncDef' name parameters typeDef instrs =
- let rec buildFuncClasses remParams prevParams =
- match remainingParams with
- | nextParam::[] ->
- let(paramName, _, _) = nextParam
- [FunctionClass(name, paramName, nextParam, prevParams, instrs)]
- | nextParam::rest ->
- let
- buildFuncClasses parameters List.empty
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement