From 5f4ff27c3da4fedb72edfae531210aba1e86d9c3 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 5 Jul 2011 22:07:49 +0900 Subject: [PATCH] removing redundant check --- vm.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vm.c b/vm.c index f2c0e443..4eb39884 100644 --- a/vm.c +++ b/vm.c @@ -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);