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

Merge 7b9b7d0e67 into af1bc5806d

Browse source
This commit is contained in:
a2379 2025-04-01 13:45:21 +08:00 • committed by GitHub
commit 3c48d5e2eb
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
3 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/emscripten.stub
View file

@ -4,4 +4,5 @@
(define-c void (eval-script! "emscripten_run_script") (string))
(define-c int (integer-eval-script "emscripten_run_script_int") (string))
(define-c string (string-eval-script "emscripten_run_script_string") (string))))
(define-c string (string-eval-script "emscripten_run_script_string") (string)))
(else))

2
lib/init-7.scm
View file

@ -382,7 +382,7 @@
(memq (identifier->symbol x) *features*)))
(let expand ((ls (cdr expr)))
(cond
((null? ls)) ; (error "cond-expand: no expansions" expr)
((null? ls) (error "cond-expand: no expansions" expr))
((not (pair? (car ls))) (error "cond-expand: bad clause" (car ls)))
((eq? 'else (identifier->symbol (caar ls)))
(if (pair? (cdr ls))

3
lib/srfi/144/math.stub
View file

@ -171,7 +171,8 @@ double sexp_compute_least_double(double f) {
(define-c double (flgamma "tgamma") (double))
(cond-expand
(windows
(c-include-verbatim "lgamma_r.c")))
(c-include-verbatim "lgamma_r.c"))
(else))
(define-c double lgamma_r (double (result int)))
(define-c double (flfirst-bessel "jn") (int double))