src/Pure/General/path.ML
changeset 33049 c38f02fdf35d
parent 33038 8f9594c31de4
child 33955 fff6f11b1f09
     1.1 --- a/src/Pure/General/path.ML	Wed Oct 21 10:15:31 2009 +0200
     1.2 +++ b/src/Pure/General/path.ML	Wed Oct 21 12:09:37 2009 +0200
     1.3 @@ -42,7 +42,7 @@
     1.4    | check_elem (chs as ["~"]) = err_elem "Illegal" chs
     1.5    | check_elem (chs as ["~", "~"]) = err_elem "Illegal" chs
     1.6    | check_elem chs =
     1.7 -      (case inter (op =) (["/", "\\", "$", ":"], chs) of
     1.8 +      (case inter (op =) ["/", "\\", "$", ":"] chs of
     1.9          [] => chs
    1.10        | bads => err_elem ("Illegal character(s) " ^ commas_quote bads ^ " in") chs);
    1.11