From 2d9260d12c5b2ecfa29f86c94eeec9ae21cd908e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 31 Jan 2010 10:44:44 +0100
Subject: [PATCH] add return/nvalues

* libguile/vm-i-system.c (return/nvalues): New instruction, like
  call/nargs.
---
 libguile/vm-i-system.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 258aa529e..0d54fa51a 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -1264,6 +1264,15 @@ VM_DEFINE_INSTRUCTION (68, return_values_star, "return/values*", 1, -1, -1)
   goto vm_return_values;
 }
 
+VM_DEFINE_INSTRUCTION (88, return_nvalues, "return/nvalues", 0, 1, -1)
+{
+  SCM n;
+  POP (n);
+  nvalues = scm_to_int (n);
+  ASSERT (nvalues >= 0);
+  goto vm_return_values;
+}
+
 VM_DEFINE_INSTRUCTION (69, truncate_values, "truncate-values", 2, -1, -1)
 {
   SCM x;