changeset 33038 | 8f9594c31de4 |
parent 33037 | b22e44496dc2 |
child 33049 | c38f02fdf35d |
--- a/src/Pure/General/path.ML Tue Oct 20 16:13:01 2009 +0200 +++ b/src/Pure/General/path.ML Wed Oct 21 08:14:38 2009 +0200 @@ -42,7 +42,7 @@ | check_elem (chs as ["~"]) = err_elem "Illegal" chs | check_elem (chs as ["~", "~"]) = err_elem "Illegal" chs | check_elem chs = - (case gen_inter (op =) (["/", "\\", "$", ":"], chs) of + (case inter (op =) (["/", "\\", "$", ":"], chs) of [] => chs | bads => err_elem ("Illegal character(s) " ^ commas_quote bads ^ " in") chs);