equal
deleted
inserted
replaced
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; |