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

[r2003-06-17 06:12:57 by cvscast] Clean

Original author: cvscast
Date: 2003-06-17 06:12:57+00:00
parent a684bdbd
......@@ -125,12 +125,11 @@ and eval_transform env brs v =
and eval_transform_aux env brs acc = function
| Pair (x,y) ->
let acc = match eval_branches env brs x with
| Value.Absent -> acc
| x -> append_cdr acc x
in
eval_transform_aux env brs acc y
(match eval_branches env brs x with
| Value.Absent -> eval_transform_aux env brs acc y
| x -> eval_transform_aux env brs (append_cdr acc x) y)
| String_latin1 (_,_,_,q) | String_utf8 (_,_,_,q) as v ->
(* TODO: raise this test outside the loop *)
if Types.Char.is_empty (brs.Typed.br_accept)
then eval_transform_aux env brs acc q
else eval_transform_aux env brs acc (normalize v)
......
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