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

Timestamp:

05/12/05 11:58:41 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* Set.pm now passes all its tests.

Files:

• src/Pugs/Prim/Keyed.hs (modified) (2 diffs)

src/Pugs/Prim/Keyed.hs

@@ -95 +95 @@
 existsFromRef (MkRef (IScalar sv)) val = do
     refVal  <- scalar_fetch sv
-    ref     <- fromVal refVal
-    existsFromRef ref val
+    case refVal of
+        VRef ref    -> existsFromRef ref val
+        VList _     -> (`existsFromRef` val) =<< fromVal refVal
+        _           -> return False
 existsFromRef ref _ = retError "Not a keyed reference" ref
 
@@ -116 +118 @@
 deleteFromRef (MkRef (IScalar sv)) val = do
     refVal  <- scalar_fetch sv
-    ref     <- fromVal refVal
-    deleteFromRef ref val
+    case refVal of
+        VRef ref    -> deleteFromRef ref val
+        VList _     -> (`deleteFromRef` val) =<< fromVal refVal
+        _           -> return undef
 deleteFromRef ref _ = retError "Not a keyed reference" ref