Add a lambda function that just returns its arguments. Clean up sever…

…al test failures
cardinal · Jul 25, 2009 · e6bea57 · e6bea57
1 parent 8f8f5d6
commit e6bea57
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 3 deletions.
diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -15,6 +15,15 @@ src/builtins/control.pir - Cardinal Control functions
 .include 'except_types.pasm'
 .include 'except_severity.pasm'
 
+=item lambda
+
+=cut
+
+.sub 'lambda'
+    .param pmc block :named('!BLOCK')
+    .return (block)
+.end
+
 =item take
 
 =cut

diff --git a/src/classes/Array.pir b/src/classes/Array.pir
@@ -190,7 +190,7 @@ Return a sorted copy of the list
 =cut
 
 .sub 'sort' :method
-    .param pmc by              :optional
+    .param pmc by              :optional :named('!BLOCK')
     .param int has_by          :opt_flag
     if has_by goto have_by
     by = get_hll_global 'infix:cmp'

diff --git a/src/classes/Integer.pir b/src/classes/Integer.pir
@@ -175,7 +175,7 @@ Runs C<block> for integer from 0 to value of C<self>
 
 .include "hllmacros.pir"
 .sub 'times' :method
-   .param pmc block
+   .param pmc block :named('!BLOCK')
    $I0 = 0
    $I1 = self
    .While($I0 < $I1, {

diff --git a/t/99-other.t b/t/99-other.t
@@ -17,7 +17,7 @@ end
 foo[1].upto(7) { |i| is i, a, "method on array access of the result of calling a function"
                      a += 1}
 
-a = do |a,&f|
+a = lambda do |a,&f|
     f(a)
 end