Commit b2030041 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-02-09 20:29:33 by afrisch] Empty log message

Original author: afrisch
Date: 2004-02-09 20:29:33+00:00
parent 20e41309
......@@ -298,9 +298,11 @@ let eval_rec_funs funs =
assert (!frame = 0);
List.iter (fun e -> push (eval [||] e)) funs
let expr = function
| Eval e -> eval [||] e
| _-> assert false
let expr e =
assert (!frame = 0);
match e with
| Eval e -> eval [||] e
| _-> assert false
let eval = function
| Eval e -> eval_expr e
......@@ -309,7 +311,7 @@ let eval = function
let comp_unit init code =
(* Save the stack so as to be able to run a loaded comp_uni
(* Save the stack so as to be able to run a loaded comp_unit
from the toplevel *)
let old_stack = !stack in
let old_sp = !sp in
......
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