Changeset 3904 for src/Pugs/Eval.hs

Timestamp:

05/26/05 11:56:40 (4 years ago)

Author:

scook0

svk:copy_cache_prev:

5482

Message:

* Haddocks for Internals.hs
* Renamed 'enterLoop' to 'enterWhile'

Files:

• src/Pugs/Eval.hs (modified) (2 diffs)

src/Pugs/Eval.hs

@@ -676 +676 @@
     doWhileUntil f = do
         let [cond, body] = exps
-        enterLoop . fix $ \runLoop -> do
+        enterWhile . fix $ \runLoop -> do
             vbool <- enterEvalContext (cxtItem "Bool") cond
             vb    <- fromVal vbool
@@ -1181 +1181 @@
 
 doFetch :: (Val -> Eval (IVar VScalar))
-            -> (Val -> Eval Val)
-            -> (forall v. (Value v) => Eval v)
-            -> Bool -> Bool
-            -> Eval Val
+        -> (Val -> Eval Val)
+        -> (forall v. (Value v) => Eval v)
+        -> Bool
+        -> Bool
+        -> Eval Val
 doFetch fetchElem fetchVal fetchIdx isLV isSV = case (isLV, isSV) of
     (True, True) -> do