From 67971438eea22040f18045b765bcc60fe41f1955 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Thu, 1 Oct 1998 12:34:32 +0000 Subject: Noms symboliques pour les tags speciaux git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2107 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- stdlib/printexc.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stdlib/printexc.ml') diff --git a/stdlib/printexc.ml b/stdlib/printexc.ml index 1d825d60b..a8a52eb7f 100644 --- a/stdlib/printexc.ml +++ b/stdlib/printexc.ml @@ -24,9 +24,9 @@ let field x i = let f = Obj.field x i in if not (Obj.is_block f) then sprintf "%d" (Obj.magic f : int) (* can also be a char *) - else if Obj.tag f = 252 then + else if Obj.tag f = Obj.string_tag then sprintf "\"%s\"" (String.escaped (Obj.magic f : string)) - else if Obj.tag f = 253 then + else if Obj.tag f = Obj.double_tag then string_of_float (Obj.magic f : float) else "_" -- cgit v1.2.3-70-g09d2