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

Merge branch 'master' of github.com:ashinn/chibi-scheme

Browse source
This commit is contained in:
Alex Shinn 2018-12-11 22:54:18 +08:00
commit 90ed977202
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/parse/parse.scm
View file

@ -307,7 +307,7 @@
(define (parse->list f source . o) (define (parse->list f source . o)
(let ((index (if (pair? o) (car o) 0))) (let ((index (if (pair? o) (car o) 0)))
(reverse (parse-fold cons '() f source index)))) (reverse (parse-fold f cons '() source index))))
;;> As \scheme{parse->list} but requires the entire source be parsed ;;> As \scheme{parse->list} but requires the entire source be parsed
;;> with no left over characters, signalling an error otherwise. ;;> with no left over characters, signalling an error otherwise.

2
main.c
View file

@ -614,7 +614,7 @@ sexp run_main (int argc, char **argv) {
sym = sexp_intern(ctx, main_symbol, -1); sym = sexp_intern(ctx, main_symbol, -1);
tmp = sexp_env_ref(ctx, env, sym, SEXP_FALSE); tmp = sexp_env_ref(ctx, env, sym, SEXP_FALSE);
if (sexp_procedurep(tmp)) { if (sexp_procedurep(tmp)) {
args = sexp_list1(ctx, sexp_cdr(args)); args = sexp_list1(ctx, args);
check_exception(ctx, sexp_apply(ctx, tmp, args)); check_exception(ctx, sexp_apply(ctx, tmp, args));
} else { } else {
fprintf(stderr, "couldn't find main binding: %s in %s\n", main_symbol, main_module ? main_module : argv[i]); fprintf(stderr, "couldn't find main binding: %s in %s\n", main_symbol, main_module ? main_module : argv[i]);