diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/names.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 831b6ad46e..ee8d838da1 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -57,15 +57,13 @@ struct let of_string s = let () = check_soft s in - let s = String.copy s in String.hcons s let of_string_soft s = let () = check_soft ~warn:false s in - let s = String.copy s in String.hcons s - let to_string id = String.copy id + let to_string id = id let print id = str id |