Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 22:29:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding integer->error-message

Browse source
This commit is contained in:
Alex Shinn 2011-06-29 23:12:32 +09:00
parent db72ce0055
commit f415b01eee
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/ast.c
View file

@ -292,6 +292,11 @@ static sexp sexp_string_contains (sexp ctx sexp_api_params(self, n), sexp x, sex
return res ? sexp_make_fixnum(res-sexp_string_data(x)) : SEXP_FALSE; return res ? sexp_make_fixnum(res-sexp_string_data(x)) : SEXP_FALSE;
} }
static sexp sexp_error_string (sexp ctx sexp_api_params(self, n), sexp x) {
sexp_assert_type(ctx, sexp_fixnump, SEXP_FIXNUM, x);
return sexp_c_string(ctx, strerror(sexp_unbox_fixnum(x)), -1);
}
#define sexp_define_type(ctx, name, tag) \ #define sexp_define_type(ctx, name, tag) \
sexp_env_define(ctx, env, sexp_intern(ctx, name, -1), sexp_type_by_index(ctx, tag)); sexp_env_define(ctx, env, sexp_intern(ctx, name, -1), sexp_type_by_index(ctx, tag));
@ -397,5 +402,6 @@ sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
sexp_define_foreign_opt(ctx, env, "integer->immediate", 2, sexp_integer_to_immediate, SEXP_FALSE); sexp_define_foreign_opt(ctx, env, "integer->immediate", 2, sexp_integer_to_immediate, SEXP_FALSE);
sexp_define_foreign(ctx, env, "gc", 0, sexp_gc_op); sexp_define_foreign(ctx, env, "gc", 0, sexp_gc_op);
sexp_define_foreign(ctx, env, "string-contains", 2, sexp_string_contains); sexp_define_foreign(ctx, env, "string-contains", 2, sexp_string_contains);
sexp_define_foreign(ctx, env, "integer->error-string", 1, sexp_error_string);
return SEXP_VOID; return SEXP_VOID;
} }

2
lib/chibi/ast.module
View file

@ -32,7 +32,7 @@
port-line port-line-set! port-line port-line-set!
type-name type-cpl type-parent type-slots type-name type-cpl type-parent type-slots
object-size integer->immediate gc object-size integer->immediate gc
string-contains) string-contains integer->error-string)
(import (scheme)) (import (scheme))
(include-shared "ast") (include-shared "ast")
(include "ast.scm")) (include "ast.scm"))