Changeset 17871 for src/Pugs/Prim

Timestamp:

09/16/07 15:14:34 (14 months ago)

Author:

ryporter

Message:

replace improper use of length() in my previous check-in, because it prevents laziness

Files:

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

src/Pugs/Prim/List.hs

@@ -335 +335 @@
 op2First list sub = do
   (VList vals) <- (op2Grep list sub)
-  if (length vals) > 0 
+  if not (null vals)
     then return $ (vals !! 0)
     else return $ undef