@@ -28,7 +28,8 @@ split = go []
29 go vars str =
29 go vars str =
30 case break (=='.') str of
30 case break (=='.') str of
31+ (x,'.':rest) | isOp x -> vars ++ [x ++ '.' : rest]
31− (x,'.':rest) -> go (vars ++ [x]) rest
32+ | otherwise -> go (vars ++ [x]) rest
32 (x,[]) -> vars ++ [x]
33 (x,[]) -> vars ++ [x]
34var name = Id () (makeSafe name)
35var name = Id () (makeSafe name)