[r2007-05-16 21:18:46 by afrisch] Empty log message

Original author: afrisch
Date: 2007-05-16 21:18:46+00:00

CHANGES

 Since 0.4.1
 - Added int_of_char
+- bug fix: "match 1 with (x := `nil) -> x"
 
 0.4.1
 =======

runtime/run_dispatch.ml

@@ -74,6 +74,7 @@ let make_result_basic v (code,r,_) =
     let x = match Array.unsafe_get r a with
       | Catch -> v
       | Const c -> const c 
+      | Nil -> nil
       | _ -> assert false
     in
     buf.(!cursor) <- x;
@@ -91,6 +92,7 @@ let make_result_char ch (code,r,_) =
     let x = match Array.unsafe_get r a with
       | Catch -> Char ch
       | Const c -> const c
+      | Nil -> nil
       | _ -> assert false
     in
     buf.(!cursor + a) <- x