X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fata.ml;h=591fab118cbacb107e8fe7d7bfab4f56b9c95199;hb=1802223f08509622b24fbba93faeadbe60734f9c;hp=8590a8e26cd594d6bf9115cb8d77aa914b17013d;hpb=efbad47ef803e878d25dbbc4e8c9e844b6a2eea0;p=SXSI%2Fxpathcomp.git diff --git a/src/ata.ml b/src/ata.ml index 8590a8e..591fab1 100644 --- a/src/ata.ml +++ b/src/ata.ml @@ -271,7 +271,7 @@ let get_trans ?(attributes=TagSet.empty) auto states tag = (* let ts = if ts == TagSet.star then TagSet.diff ts attributes else ts in *) let b = TagSet.mem tag ts in - LOG(__ "transition" 3 "tag=<%s>, %s: %a7C" + LOG(__ "transition" 3 "tag=<%s>, %s: %a" (Tag.to_string tag) (if b then " taking" else "not taking") Transition.print tr);