Changeset 16507

Timestamp:

05/22/07 21:31:50 (18 months ago)

Author:

audreyt

Message:

* Pugs.Class: Mask the "" magic-backdoor-method in the .^{methods list}

as requested by moritz++

Files:

• src/Pugs/Class.hs (modified) (1 diff)

src/Pugs/Class.hs

@@ -164 +164 @@
 _PureClass :: PureClass
 _PureClass = mkPureClass "Class"
-    [ "methods"     ... ((map methodName . all_methods) :: PureClass -> [ID])
+    [ "methods"     ... ((filter (/= nullID) . map methodName . all_methods) :: PureClass -> [ID])
     ]