vertespain / langages / changeset / 476149b5ebca

@@ -289,8 +289,9 @@ eval env (Llambda formals e) =
           eval (foldr (\ (x,v) e -> einsert e x v)
                       env (zip formals actuals))
                e)
 eval env (Lcall lambda args) = vapply (eval env lambda)
                                       [eval env arg | arg <- args]
 eval env (Lcall lambda actuals) = case (eval env lambda) of
                                     Vfun f -> f (map (eval env) actuals)
                                     _ -> error "Not a lambda function"
 eval env (Lapp f actuals) =
     case elookup env f of
       Vfun f -> f (map (eval env) actuals)
@@ -306,8 +307,6 @@ eval env (Lfix decls e) =
                         env decls)
     in eval newenv e
 vapply :: Value -> [Value] -> Value
 vapply (Vfun f) args = f args
 ---------------------------------------------------------------------------
 -- Toplevel                                                              --
 ---------------------------------------------------------------------------