Changeset 15373 for src/Pugs/Val

Timestamp:

02/27/07 18:56:54 (21 months ago)

Author:

audreyt

Message:

* First step in MO bridge:

vv('12345').reverse # '54321' (newVal)
vv('12345').reverse.reverse # '12345' (newVal)

It's the only method defined (and works) at the moment.
More tomorrow.

Files:

• src/Pugs/Val/Base.hs (modified) (1 diff)

src/Pugs/Val/Base.hs

@@ -131 +131 @@
     asNum = cast . parseInt -- XXX - wrong
     asInt = cast . parseInt
-    fromObj (MkInvocant x _) = undefined
+    fromObj (MkInvocant x _) = fromTypeable x
     classOf _ = mkBoxClass "Str"
         [ "reverse"    ... (MkStr . Char8.reverse . unStr)