Getting rid of one more Obj.magic :)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4806 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2002-05-12 18:41:07 +00:00 · 2002-05-12 18:41:07 +00:00 · f13bd42464
parent 3652bd03d9
commit f13bd42464
1 changed files with 1 additions and 1 deletions
--- a/stdlib/scanf.ml
+++ b/stdlib/scanf.ml
@ -320,7 +320,7 @@ let bscanf ib (fmt : ('a, Scanning.scanbuf, 'c) format) f =
  let lim = String.length fmt - 1 in

  let return v = Obj.magic v () in
-  let delay f x () = Obj.magic f x in
+  let delay f x () = f x in
  let stack f = delay (return f) in

  let rec scan spc f i =