From 9788132c6a92abfa796c6a6d05d6e26edb0862e4 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 10 Jan 2017 00:26:46 +0900 Subject: [PATCH] add procedure-flags --- lib/chibi/ast.c | 6 ++++++ lib/chibi/ast.sld | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/chibi/ast.c b/lib/chibi/ast.c index f2b590fc..3e5f84de 100644 --- a/lib/chibi/ast.c +++ b/lib/chibi/ast.c @@ -93,6 +93,11 @@ sexp sexp_get_procedure_variadic_p (sexp ctx, sexp self, sexp_sint_t n, sexp pro return sexp_make_boolean(sexp_procedure_variadic_p(proc)); } +sexp sexp_get_procedure_flags (sexp ctx, sexp self, sexp_sint_t n, sexp proc) { + sexp_assert_type(ctx, sexp_procedurep, SEXP_PROCEDURE, proc); + return sexp_make_fixnum(sexp_procedure_flags(proc)); +} + sexp sexp_get_opcode_name (sexp ctx, sexp self, sexp_sint_t n, sexp op) { if (! sexp_opcodep(op)) return sexp_type_exception(ctx, self, SEXP_OPCODE, op); @@ -643,6 +648,7 @@ sexp sexp_init_library (sexp ctx, sexp self, sexp_sint_t n, sexp env, const char sexp_define_foreign(ctx, env, "procedure-vars", 1, sexp_get_procedure_vars); sexp_define_foreign(ctx, env, "procedure-arity", 1, sexp_get_procedure_arity); sexp_define_foreign(ctx, env, "procedure-variadic?", 1, sexp_get_procedure_variadic_p); + sexp_define_foreign(ctx, env, "procedure-flags", 1, sexp_get_procedure_flags); sexp_define_foreign(ctx, env, "copy-lambda", 1, sexp_copy_lambda); sexp_define_foreign_opt(ctx, env, "make-lambda", 4, sexp_make_lambda_op, SEXP_NULL); sexp_define_foreign_opt(ctx, env, "make-cnd", 3, sexp_make_cnd_op, SEXP_VOID); diff --git a/lib/chibi/ast.sld b/lib/chibi/ast.sld index 5ac0d66e..2177b1b1 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 procedure-code procedure-vars procedure-name procedure-name-set! - procedure-arity procedure-variadic? + procedure-arity procedure-variadic? procedure-flags bytecode-name bytecode-literals bytecode-source port-line port-line-set! extend-env env-parent env-parent-set! env-lambda env-lambda-set!