vm: fix self name of vm-desc-nlevels.

* vm.c (vm_desc_nlevels): vm_desc_nlevels -> vm-desc-nlevels.

1 files changed, 1 insertions, 1 deletions

diff --git a/vm.c b/vm.c
index e92fd5f7..bfce175c 100644
--- a/vm.c
+++ b/vm.c
@@ -175,7 +175,7 @@ val vm_make_desc(val nlevels, val nregs, val bytecode,
 
 static val vm_desc_nlevels(val desc)
 {
-  val self = lit("vm_desc_nlevels");
+  val self = lit("vm-desc-nlevels");
   struct vm_desc *vd = vm_desc_struct(self, desc);
   return num(vd->nlvl);
 }