[hoc-cvs] [hoc commit] r384 - branches/objc2/hoc/HOC/HOC

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

Author: jam...@us...
Date: Fri Jan  9 18:06:02 2009
New Revision: 384

Modified:
    /   (props changed)
    branches/objc2/hoc/HOC/HOC/NewClass.hs

Log:
Fixing merge error - I accidentally took 2 versions of the same function.



Modified: branches/objc2/hoc/HOC/HOC/NewClass.hs
==============================================================================
--- branches/objc2/hoc/HOC/HOC/NewClass.hs	(original)
+++ branches/objc2/hoc/HOC/HOC/NewClass.hs	Fri Jan  9 18:06:02 2009
@@ -109,8 +109,6 @@

  setHaskellReleaseMethod methodList idx super =
      setMethodInList methodList idx releaseSelector "v@:" releaseCif  
(haskellObject_release_IMP super)
-setHaskellReleaseMethod methodList idx =
-    setMethodInList methodList idx releaseSelector "v@:" releaseCif  
haskellObject_release_IMP

  setHaskellDataMethod methodList idx super mbDat =
      setMethodInList methodList idx getHaskellDataSelector "^v@:#"  
getHaskellDataCif (getHaskellData_IMP super mbDat)