From 5a39e6c08d428d774165e0ef3922ba8b75eee9e1 Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 28 Jan 2013 21:05:35 +0000
Subject: Uniformization of the "anomaly" command.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16165 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/libnames.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'library/libnames.ml')

diff --git a/library/libnames.ml b/library/libnames.ml
index 7680e5248..902222431 100644
--- a/library/libnames.ml
+++ b/library/libnames.ml
@@ -22,7 +22,7 @@ let pop_dirpath_n n dir =
   Dir_path.make (List.skipn n (Dir_path.repr dir))
 
 let pop_dirpath p = match Dir_path.repr p with
-  | [] -> anomaly "dirpath_prefix: empty dirpath"
+  | [] -> anomaly (str "dirpath_prefix: empty dirpath")
   | _::l -> Dir_path.make l
 
 let is_dirpath_prefix_of d1 d2 =
-- 
cgit v1.2.3