diff options
| author |  Stephane Glondu <steph@glondu.net> | 2010-07-21 09:48:05 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2010-07-21 09:48:05 +0200 |
| commit | bbb5e6eb84a46c7e8041e05ab0059994fa0b1a25 (patch) | |
| tree | 7d2930678b27e520c9431739c3d1af9d6475ccd1 /lib/dyn.ml | |
| parent | 7a998985060742038ba6d2664d159ff2dbcdec3d (diff) | |
| parent | 5b7eafd0f00a16d78f99a27f5c7d5a0de77dc7e6 (diff) | |
Merge branch 'experimental/upstream' into experimental/master
Diffstat (limited to 'lib/dyn.ml')
| -rw-r--r-- | lib/dyn.ml | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: dyn.ml 5920 2004-07-16 20:01:26Z herbelin $ *) +(* $Id$ *) open Util @@ -17,7 +17,7 @@ type t = string * Obj.t let dyntab = ref ([] : string list) let create s = - if List.mem s !dyntab then + if List.mem s !dyntab then anomaly ("Dyn.create: already declared dynamic " ^ s); dyntab := s :: !dyntab; ((fun v -> (s,Obj.repr v)), |