Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

don't set the return value to void for string-cursor-set! and bytevector-u8-set! - the compiler pushes this for us

Browse source
This commit is contained in:
Alex Shinn 2011-11-03 07:51:16 +09:00
parent e7f12f88c2
commit d4da2cb85f
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm.c
View file

@ -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_raise("byte-vector-set!: index out of range", sexp_list2(ctx, _ARG1, _ARG2));
sexp_bytes_set(_ARG1, _ARG2, _ARG3); sexp_bytes_set(_ARG1, _ARG2, _ARG3);
top-=3; top-=3;
_ARG1 = SEXP_VOID;
break; break;
case SEXP_OP_STRING_SET: case SEXP_OP_STRING_SET:
if (! sexp_stringp(_ARG1)) if (! sexp_stringp(_ARG1))
@ -1235,7 +1234,6 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
sexp_string_set(_ARG1, _ARG2, _ARG3); sexp_string_set(_ARG1, _ARG2, _ARG3);
#endif #endif
top-=3; top-=3;
_ARG1 = SEXP_VOID;
break; break;
#if SEXP_USE_UTF8_STRINGS #if SEXP_USE_UTF8_STRINGS
case SEXP_OP_STRING_CURSOR_NEXT: case SEXP_OP_STRING_CURSOR_NEXT: