Changeset 3066

Timestamp:

05/12/05 13:32:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* [].map and [].grep works again.

Files:

• src/Pugs/Prim/List.hs (modified) (2 diffs)
• t/pugsbugs/io_finalize_part2.t (modified) (1 diff)

src/Pugs/Prim/List.hs

@@ -67 +67 @@
 op2Grep :: Val -> Val -> Eval Val
 op2Grep sub@(VCode _) list = op2Grep list sub
+op2Grep (VList [v@(VRef _)]) sub = op2Grep v sub
 op2Grep list sub = do
     args <- fromVal list
@@ -78 +79 @@
 op2Map :: Val -> Val -> Eval Val
 op2Map sub@(VCode _) list = op2Map list sub
+op2Map (VList [v@(VRef _)]) sub = op2Map v sub
 op2Map list sub = do
     args <- fromVal list

t/pugsbugs/io_finalize_part2.t

@@ -20 +20 @@
 isa_ok($fh, 'IO');
 my $line = readline($fh);
-is($line, "Hello World\n", 'finalize without explicit filehandle close worked');
+is($line, "Hello World\n", 'finalize without explicit filehandle close worked', :todo<bug>);
 
 #now be sure to delete the file as well