Changeset 2541 for src/Pugs/Types/Array.hs

Timestamp:

05/01/05 06:40:46 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4052

Message:

* %hash.pairs now returns a list of lvaluable pairs.
* beginning of moving all castfails into Eval monad.

Files:

• src/Pugs/Types/Array.hs (modified) (1 diff)

src/Pugs/Types/Array.hs

@@ -201 +201 @@
     array_fetchSize = return . length
     array_fetchVal av idx = getIndex idx (Just undef) (return av) Nothing
+    array_fetchElem av idx = do
+        val <- array_fetchVal av idx
+        return $ constScalar val
     array_storeVal _ _ _ = retConstError undef
     array_storeElem _ _ _ = retConstError undef