Commit 2c92b64a authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-06-13 20:43:54 by afrisch] Bug fix toplevel

Original author: afrisch
Date: 2004-06-13 20:43:54+00:00
parent f358c7fd
......@@ -159,8 +159,9 @@ let compile_eval env e = [ Push (compile_expr env e); Pop ]
let compile_let_decl env decl =
let pat = decl.Typed.let_pat in
let e = compile_expr env decl.Typed.let_body in
let (env,code) = enter_globals env (Patterns.fv pat) in
(env, (Push (compile_expr env decl.Typed.let_body)) :: (Split pat) :: code)
(env, (Push e) :: (Split pat) :: code)
let compile_rec_funs env funs =
let fun_name = function
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment