From 6917cdabfbfda052984b3ee5433847c832243046 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 28 Feb 2013 22:35:51 +0900 Subject: [PATCH] Adding Complex type definition 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 07469058..fc79cef6 100644 --- a/lib/chibi/ast.c +++ b/lib/chibi/ast.c @@ -383,6 +383,7 @@ sexp sexp_init_library (sexp ctx, sexp self, sexp_sint_t n, sexp env, const char sexp_define_type(ctx, "Bignum", SEXP_BIGNUM); sexp_define_type(ctx, "Flonum", SEXP_FLONUM); sexp_define_type(ctx, "Integer", SEXP_FIXNUM); + sexp_define_type(ctx, "Complex", SEXP_COMPLEX); sexp_define_type(ctx, "Symbol", SEXP_SYMBOL); sexp_define_type(ctx, "Char", SEXP_CHAR); sexp_define_type(ctx, "Boolean", SEXP_BOOLEAN); diff --git a/lib/chibi/ast.sld b/lib/chibi/ast.sld index 2ce1d20a..66340ce6 100644 --- a/lib/chibi/ast.sld +++ b/lib/chibi/ast.sld @@ -3,7 +3,7 @@ (export analyze optimize env-cell ast->sexp macroexpand type-of Object Input-Port Output-Port Opcode Procedure Bytecode Macro Env - Number Bignum Flonum Integer Char Boolean + Number Bignum Flonum Integer Complex Char Boolean Symbol String Byte-Vector Vector Pair Context Lam Cnd Set Ref Seq Lit Sc Exception syntactic-closure? lambda? cnd? set? ref? seq? lit? type?