author | wenzelm |
Fri, 12 Aug 2011 15:30:12 +0200 | |
changeset 44161 | c1da9897b6c9 |
parent 44160 | 8848867501fb |
child 44162 | 5434899d955c |
--- a/src/Pure/General/path.ML Fri Aug 12 15:28:30 2011 +0200 +++ b/src/Pure/General/path.ML Fri Aug 12 15:30:12 2011 +0200 @@ -51,7 +51,7 @@ | check_elem (chs as ["~"]) = err_elem "Illegal" chs | check_elem (chs as ["~", "~"]) = err_elem "Illegal" chs | check_elem chs = - (case inter (op =) ["/", "\\", "$", ":"] chs of + (case inter (op =) ["/", "\\", ":"] chs of [] => chs | bads => err_elem ("Illegal character(s) " ^ commas_quote bads ^ " in") chs);