implement basic [rename foo ""] (delete command)

partcl · Jul 11, 2010 · 2b618be · 2b618be
1 parent c6d69d0
commit 2b618be
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
@@ -514,6 +514,13 @@ our sub rename(*@args) {
     if +@args != 2 {
         error('wrong # args: should be "rename oldName newName"');
     }
+    if @args[1] eq "" {
+        # delete sub.
+        my $ns := pir::get_hll_namespace__P();
+        pir::delete__vQs($ns, @args[0]);
+    } else {
+        # XXX actually rename
+    }
 }
 
 our sub set(*@args) {