src/Pure/General/path.ML
changeset 19482 9f11af8f7ef9
parent 19305 5c16895d548b
child 21858 05f57309170c
equal deleted inserted replaced
19481:a6205c6203ea 19482:9f11af8f7ef9
   151     (case getenv s of
   151     (case getenv s of
   152       "" => error ("Undefined Isabelle environment variable: " ^ quote s)
   152       "" => error ("Undefined Isabelle environment variable: " ^ quote s)
   153     | path => rep (unpack path))
   153     | path => rep (unpack path))
   154   | eval x = [x];
   154   | eval x = [x];
   155 
   155 
   156 val expand = rep #> map eval #> List.concat #> norm #> Path;
   156 val expand = rep #> maps eval #> norm #> Path;
   157 val position = expand #> pack #> quote #> Position.line_name 1;
   157 val position = expand #> pack #> quote #> Position.line_name 1;
   158 
   158 
   159 end;
   159 end;