From d4da2cb85f62ff406943148093d8e326455b59cf Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 3 Nov 2011 07:51:16 +0900
Subject: [PATCH] don't set the return value to void for string-cursor-set! and
 bytevector-u8-set! - the compiler pushes this for us

---
 vm.c | 2 --
 1 file changed, 2 deletions(-)

diff --git a/vm.c b/vm.c
index 50eed250..aac5eec1 100644
--- a/vm.c
+++ b/vm.c
@@ -1214,7 +1214,6 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
       sexp_raise("byte-vector-set!: index out of range", sexp_list2(ctx, _ARG1, _ARG2));
     sexp_bytes_set(_ARG1, _ARG2, _ARG3);
     top-=3;
-    _ARG1 = SEXP_VOID;
     break;
   case SEXP_OP_STRING_SET:
     if (! sexp_stringp(_ARG1))
@@ -1235,7 +1234,6 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
     sexp_string_set(_ARG1, _ARG2, _ARG3);
 #endif
     top-=3;
-    _ARG1 = SEXP_VOID;
     break;
 #if SEXP_USE_UTF8_STRINGS
   case SEXP_OP_STRING_CURSOR_NEXT: