From 8836ecc90895b5ffcb0644cafa43bc072704bb46 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 31 May 2020 18:04:11 -0700
Subject: 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.
---
 vm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vm.c')

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)
-- 
cgit v1.2.3