tuned signature;
authorwenzelm
Wed, 03 Apr 2019 23:29:19 +0200
changeset 70230 198bbe73b100
parent 70229 96fe857a7a6f
child 70231 c1226e4c273e
tuned signature;
src/Pure/General/path.ML
--- a/src/Pure/General/path.ML	Wed Apr 03 21:50:00 2019 +0200
+++ b/src/Pure/General/path.ML	Wed Apr 03 23:29:19 2019 +0200
@@ -43,6 +43,8 @@
   val binding0: T -> binding
   val map_binding: (T -> T) -> binding -> binding
   val dest_binding: binding -> T * Position.T
+  val path_of_binding: binding -> T
+  val pos_of_binding: binding -> Position.T
   val implode_binding: binding -> string
   val explode_binding: string * Position.T -> binding
   val explode_binding0: string -> binding
@@ -268,8 +270,10 @@
 fun map_binding f (Binding (path, pos)) = binding (f path, pos);
 
 fun dest_binding (Binding args) = args;
+val path_of_binding = dest_binding #> #1;
+val pos_of_binding = dest_binding #> #2;
 
-val implode_binding = dest_binding #> #1 #> implode_path;
+val implode_binding = path_of_binding #> implode_path;
 
 val explode_binding = binding o explode_pos;
 fun explode_binding0 s = explode_binding (s, Position.none);