add very basic args check to [apply]

partcl · Apr 13, 2010 · 3fa5cd7 · 3fa5cd7
1 parent 00d24f3
commit 3fa5cd7
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
@@ -22,6 +22,9 @@ our sub append(*@args) {
 }
 
 our sub apply(*@args) {
+    if +@args == 0 {
+        error('wrong # args: should be "apply lambdaExpr ?arg1 arg2 ...?"');
+    }
     return '';
 }