Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +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;
}
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) \
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(ctx, env, "gc", 0, sexp_gc_op);
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;
}

2
lib/chibi/ast.module
View file

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