Changeset 15399

Timestamp:

03/01/07 18:59:17 (21 months ago)

Author:

audreyt

Message:

* Support for Class.methods:

pugs> vv('str').HOW.methods
["HOW","WHICH","bless","reverse"]

Files:

• src/Pugs/Class.hs (modified) (2 diffs)

src/Pugs/Class.hs

@@ -92 +92 @@
 type PureClass = MI Eval
 
+instance Boxable Eval a => Boxable Eval [a] where
+instance Boxable Eval ID
 instance Boxable Eval PureClass where
     classOf _ = _PureClass
@@ -98 +100 @@
 _PureClass = mkBoxClass "Class"
     [ "HOW"         ... (const _PureClass :: PureClass -> PureClass)
+    , "methods"     ... (map methodName . all_methods)
     ]