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

Timestamp:

08/19/06 19:43:32 (2 years ago)

Author:

audreyt

Message:

* Also remove sizeFromRef for real.

Files:

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

src/Pugs/Prim/Keyed.hs

@@ -135 +135 @@
 deleteFromRef ref _ = retError "Not a keyed reference" ref
 
-sizeFromRef :: VRef -> Eval Val
-sizeFromRef (MkRef (IArray arr)) = do
-    --liftIO $ putStrLn "here"
-    size <- array_fetchSize arr
-    return $ castV size
-sizeFromRef ref = retError "Not a sizeable reference" ref
-