mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-07 05:06:37 +02:00
don't set the return value to void for string-cursor-set! and bytevector-u8-set! - the compiler pushes this for us
This commit is contained in:
parent
e7f12f88c2
commit
d4da2cb85f
1 changed files with 0 additions and 2 deletions
2
vm.c
2
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:
|
||||
|
|
Loading…
Add table
Reference in a new issue