From 0515661235e3c17935b918565c70145d7895d37e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 27 Jan 2010 21:47:01 +0100
Subject: [PATCH] fix to variable-bound? instruction prototype

* libguile/vm-i-system.c (variable-bound?): Correctly declare as popping
  one item.
---
 libguile/vm-i-system.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 1c0aae5b6..8c280fd28 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -322,7 +322,7 @@ VM_DEFINE_INSTRUCTION (26, variable_ref, "variable-ref", 0, 1, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (27, variable_bound, "variable-bound?", 0, 0, 1)
+VM_DEFINE_INSTRUCTION (27, variable_bound, "variable-bound?", 0, 1, 1)
 {
   if (VARIABLE_BOUNDP (*sp))
     *sp = SCM_BOOL_T;