diff --git a/lib/chibi/emscripten.stub b/lib/chibi/emscripten.stub index 240f6051..a6fa0b20 100644 --- a/lib/chibi/emscripten.stub +++ b/lib/chibi/emscripten.stub @@ -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)) diff --git a/lib/init-7.scm b/lib/init-7.scm index b14b0540..0f892a9a 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -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)) diff --git a/lib/srfi/144/math.stub b/lib/srfi/144/math.stub index 27f154c1..ee8ffcb2 100644 --- a/lib/srfi/144/math.stub +++ b/lib/srfi/144/math.stub @@ -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))