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

removing redundant check

Browse source
This commit is contained in:
Alex Shinn 2011-07-05 22:07:49 +09:00
parent dee59d6ece
commit 5f4ff27c3d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm.c
View file

@ -341,7 +341,7 @@ static void generate_opcode_app (sexp ctx, sexp app) {
sexp_lit_value(sexp_car(ls)) :
sexp_car(ls)));
if (sexp_opcodep(op) && sexp_opcode_return_type(op) == SEXP_VOID
if (sexp_opcode_return_type(op) == SEXP_VOID
&& sexp_opcode_class(op) != SEXP_OPC_FOREIGN)
emit_push(ctx, SEXP_VOID);