vm: compact-gc was checked twice.

diff --git a/vm/debug.cpp b/vm/debug.cpp
index 762aa524b1d07180a5054dc4c9291176b74aa838..216155d0481f1565f6f3c5af2baf46bd132071a5 100644 (file)
--- a/vm/debug.cpp
+++ b/vm/debug.cpp
@@ -537,8 +537,6 @@ void factor_vm::factorbug() {
       ctx->push(addr);
     } else if (cmd == "code")
       dump_code_heap(cout);
-    else if (cmd == "compact-gc")
-      primitive_compact_gc();
     else if (cmd == "gc")
       primitive_full_gc();
     else if (cmd == "compact-gc")