From 71cc9b0d3cf7d41d142b7f7f1a561f9f81d2b1ff Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 2 Dec 2021 22:02:03 +0900 Subject: [PATCH] add make-procedure to (chibi ast) --- lib/chibi/ast.c | 1 + lib/chibi/ast.sld | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/chibi/ast.c b/lib/chibi/ast.c index fa40f323..e14f65b9 100644 --- a/lib/chibi/ast.c +++ b/lib/chibi/ast.c @@ -689,6 +689,7 @@ sexp sexp_init_library (sexp ctx, sexp self, sexp_sint_t n, sexp env, const char sexp_define_accessors(ctx, env, SEXP_MACRO, 1, "macro-env", NULL); sexp_define_accessors(ctx, env, SEXP_MACRO, 2, "macro-source", NULL); sexp_define_accessors(ctx, env, SEXP_MACRO, 3, "macro-aux", "macro-aux-set!"); + sexp_define_foreign(ctx, env, "make-procedure", 4, sexp_make_procedure_op); sexp_define_foreign(ctx, env, "procedure-code", 1, sexp_get_procedure_code); sexp_define_foreign(ctx, env, "procedure-vars", 1, sexp_get_procedure_vars); sexp_define_foreign(ctx, env, "procedure-arity", 1, sexp_get_procedure_arity); diff --git a/lib/chibi/ast.sld b/lib/chibi/ast.sld index f23ed0a5..6d6fef66 100644 --- a/lib/chibi/ast.sld +++ b/lib/chibi/ast.sld @@ -28,7 +28,7 @@ opcode-class opcode-code opcode-data opcode-variadic? macro-procedure macro-env macro-source macro-aux macro-aux-set! procedure-code procedure-vars procedure-name procedure-name-set! - procedure-arity procedure-variadic? procedure-flags + procedure-arity procedure-variadic? procedure-flags make-procedure bytecode-name bytecode-literals bytecode-source port-line port-line-set! port-source? port-source?-set! extend-env env-parent env-parent-set! env-lambda env-lambda-set!