From 8cf38672cf4b323fae48867a542336d1308b4348 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 18 Jun 2015 23:32:21 +0900 Subject: [PATCH] identifier->symbol should handle nested syntactic closures --- opcodes.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/opcodes.c b/opcodes.c index 57e770b2..86b05d71 100644 --- a/opcodes.c +++ b/opcodes.c @@ -151,7 +151,7 @@ _FN2(_I(SEXP_BOOLEAN), _I(SEXP_OBJECT), _I(SEXP_OBJECT), "equal?", 0, sexp_equal _FN4(_I(SEXP_BOOLEAN), _I(SEXP_OBJECT), _I(SEXP_OBJECT), _I(SEXP_OBJECT), "equal?/bounded", 0, sexp_equalp_bound), _FN1(_I(SEXP_BOOLEAN), _I(SEXP_OBJECT), "list?", 0, sexp_listp_op), _FN1(_I(SEXP_BOOLEAN), _I(SEXP_OBJECT), "identifier?", 0, sexp_identifierp_op), -_FN1(_I(SEXP_SYMBOL), _I(SEXP_OBJECT), "identifier->symbol", 0, sexp_syntactic_closure_expr_op), +_FN1(_I(SEXP_SYMBOL), _I(SEXP_OBJECT), "identifier->symbol", 0, sexp_strip_synclos), _FN4(_I(SEXP_BOOLEAN), _I(SEXP_OBJECT), _I(SEXP_ENV), _I(SEXP_OBJECT), "identifier=?", 0, sexp_identifier_eq_op), _FN1(_I(SEXP_FIXNUM), SEXP_NULL, "length*", 0, sexp_length_op), _FN1(SEXP_NULL, SEXP_NULL, "reverse", 0, sexp_reverse_op),