Commit 2cc07b66 authored by Pietro Abate's avatar Pietro Abate

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

Original author: afrisch
Date: 2007-05-16 21:18:46+00:00
parent c80dbd9d
Since 0.4.1
- Added int_of_char
- bug fix: "match 1 with (x := `nil) -> x"
0.4.1
=======
......
......@@ -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
......
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