[Bps-public-commit] r12637 - pie/branches/named-params/lib/PIE

[jesse at bestpractical.com]

Author: jesse
Date: Fri May 23 06:15:41 2008
New Revision: 12637

Modified:
   pie/branches/named-params/lib/PIE/Lambda.pm

Log:
* missed a spot. unfortunately, tests now fail

Modified: pie/branches/named-params/lib/PIE/Lambda.pm
==============================================================================
--- pie/branches/named-params/lib/PIE/Lambda.pm	(original)
+++ pie/branches/named-params/lib/PIE/Lambda.pm	Fri May 23 06:15:41 2008
@@ -58,12 +58,9 @@
 
 sub evaluate {
     my ($self, $evaluator) = @_;
-    my ($missing, $unwanted)  = $self->check();
+
+    $self->validate_args_or_die;
     
-    if (keys %$missing || keys %$unwanted) {
-            warn "Bad args! XXX TODO BETTER DIAGNOSTICS";
-        return undef;
-    }
     
     my $arguments = $self->signature;
     for (sort keys %$arguments) {