Changeset 4085 for src/Pugs/Prim/Keyed.hs

Timestamp:

05/29/05 04:07:00 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* add PerlSV to keysFromVal

Files:

• src/Pugs/Prim/Keyed.hs (modified) (1 diff)

src/Pugs/Prim/Keyed.hs

@@ -26 +26 @@
     vals <- keysFromRef ref
     return $ VList vals
+keysFromVal (PerlSV sv) = do
+    keys    <- hash_fetchKeys sv
+    return $ VList (map castV keys)
 keysFromVal v = retError "Not a keyed reference" v