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

Original author: afrisch
Date: 2004-02-09 20:29:33+00:00

runtime/eval.ml

@@ -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