From ad96291ffe2a32b85c94639b6f250fd9be846c59 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 13 May 2018 10:22:03 +0200
Subject: [PATCH] Mark call-scm<-scm-u64 as defining a result

* libguile/vm-engine.c (call-scm<-scm-u64): Add OP_DST.
---
 libguile/vm-engine.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 8c208a4f0..00a51ce6b 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -2185,7 +2185,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
       NEXT (2);
     }
 
-  VM_DEFINE_OP (91, call_scm_from_scm_u64, "call-scm<-scm-u64", OP2 (X8_S8_S8_S8, C32))
+  VM_DEFINE_OP (91, call_scm_from_scm_u64, "call-scm<-scm-u64", OP2 (X8_S8_S8_S8, C32) | OP_DST)
     {
       scm_t_uint8 dst, a, b;
       SCM res;