[hoc-cvs] [hoc commit] r314 - trunk/hoc/HOC/HOC

[<cod...@go...>]

Author: wol...@gm...
Date: Sun Sep 28 10:35:32 2008
New Revision: 314

Modified:
    trunk/hoc/HOC/HOC/SelectorNameMangling.hs

Log:
Missing part of r309


Modified: trunk/hoc/HOC/HOC/SelectorNameMangling.hs
==============================================================================
--- trunk/hoc/HOC/HOC/SelectorNameMangling.hs	(original)
+++ trunk/hoc/HOC/HOC/SelectorNameMangling.hs	Sun Sep 28 10:35:32 2008
@@ -29,12 +29,10 @@

  -}

-{-
  -- addObject:forKey: -> addObject_forKey_
  -- close: -> close_

-mangleSelectorName = forceLowercase . uncolon
+mangleSelectorNameWithUnderscores = forceLowercase . uncolon
      where
          uncolon = map f where f ':' = '_' ; f x = x
          forceLowercase xs = map toLower (takeWhile isUpper xs) ++  
dropWhile isUpper xs
--}
\ No newline at end of file