[info args] complains if invoked a non-proc.

partcl · Jul 11, 2010 · aabb9e5 · aabb9e5
1 parent 2b618be
commit aabb9e5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/Partcl/commands/info.pm b/src/Partcl/commands/info.pm
@@ -102,7 +102,11 @@ our sub dispatch_command(*@args) {
 }
 
 my sub args($procname) {
-    pir::getprop__PsP('args', pir::get_hll_global__PS($procname));
+    my $sub := pir::get_hll_global__PS($procname);
+    error("\"$procname\" isn't a procedure")
+        if pir::isnull($sub);
+
+    pir::getprop__PsP('args', $sub);
 }
 
 my sub body($procname) {

diff --git a/t/cmd_info.t b/t/cmd_info.t
@@ -36,7 +36,7 @@ eval_is {
 catch {rename me ""}
 eval_is {
   info args me
-} {"me" isn't a procedure} {info args no proc} {TODO NQPRX}
+} {"me" isn't a procedure} {info args no proc}
 
 eval_is {
   proc foo {a {b 2}} {puts a; puts b}