From b89db31e3749292e0234405dfb7f76e6a5a63d54 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 22 Aug 2020 16:27:20 +0900 Subject: [PATCH] typo in env-exports (issue #685) --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/eval.c b/eval.c index f53ab9b7..fc6e4818 100644 --- a/eval.c +++ b/eval.c @@ -206,7 +206,7 @@ sexp sexp_env_exports_op (sexp ctx, sexp self, sexp_sint_t n, sexp env) { res = SEXP_NULL; #if SEXP_USE_RENAME_BINDINGS for (ls=sexp_env_renames(env); sexp_pairp(ls); ls=sexp_env_next_cell(ls)) - sexp_push(ctx, res, sexp_cadr(ls)); + sexp_push(ctx, res, sexp_car(ls)); #endif for (ls=sexp_env_bindings(env); sexp_pairp(ls); ls=sexp_env_next_cell(ls)) if (sexp_env_value(ls) != SEXP_UNDEF)