Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 23:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

the integer->error-string arg now defaults to errno

Browse source
This commit is contained in:
Alex Shinn 2011-06-29 23:44:22 +09:00
parent e738a59989
commit ae3291962e
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/chibi/ast.c
View file

@ -293,8 +293,14 @@ static sexp sexp_string_contains (sexp ctx sexp_api_params(self, n), sexp x, sex
}
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);
int err;
if (x == SEXP_FALSE) {
err = errno;
} else {
sexp_assert_type(ctx, sexp_fixnump, SEXP_FIXNUM, x);
err = sexp_unbox_fixnum(x);
}
return sexp_c_string(ctx, strerror(err), -1);
}
#define sexp_define_type(ctx, name, tag) \
@ -402,6 +408,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);
sexp_define_foreign_opt(ctx, env, "integer->error-string", 1, sexp_error_string, SEXP_FALSE);
return SEXP_VOID;
}