vm: bugfix: bungled no-block-visible diagnosis.

* vm.c (vm_no_block_err): Fix passing extra name argument to
format that is not used in the format string.

1 files changed, 1 insertions, 1 deletions

diff --git a/vm.c b/vm.c
index 05946b22..890ddf02 100644
--- a/vm.c
+++ b/vm.c
@@ -810,7 +810,7 @@ NOINLINE static void vm_no_block_err(struct vm *vm, val name)
   else
     eval_error(vm->vd->bytecode,
                lit("return: no anonymous block is visible"),
-               name, nao);
+               nao);
 }
 
 NOINLINE static void vm_retsr(struct vm *vm, vm_word_t insn)