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

convert nulls to void on generic slot-ref

Browse source
This commit is contained in:
Alex Shinn 2011-10-30 23:35:58 +09:00
parent 9a07906e06
commit b8a8393a02
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
vm.c
View file

@ -1354,6 +1354,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
sexp_raise("slot-ref: not an integer", sexp_list1(ctx, _ARG3)); sexp_raise("slot-ref: not an integer", sexp_list1(ctx, _ARG3));
_ARG3 = sexp_slot_ref(_ARG2, sexp_unbox_fixnum(_ARG3)); _ARG3 = sexp_slot_ref(_ARG2, sexp_unbox_fixnum(_ARG3));
top-=2; top-=2;
if (!_ARG1) _ARG1 = SEXP_VOID;
break; break;
case SEXP_OP_SLOTN_SET: case SEXP_OP_SLOTN_SET:
if (! sexp_typep(_ARG1)) if (! sexp_typep(_ARG1))