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

removing a warning in accept.c and verifying non-thread lib tests all pass w/o threads.

Browse source
This commit is contained in:
Alex Shinn 2011-12-09 21:31:50 +09:00
parent 1c60d4b5eb
commit 72a2f237c7
2 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/accept.c
View file

@ -5,7 +5,9 @@
/* sockets non-blocking. */ /* sockets non-blocking. */
sexp sexp_accept (sexp ctx, sexp self, int sock, struct sockaddr* addr, socklen_t len) { sexp sexp_accept (sexp ctx, sexp self, int sock, struct sockaddr* addr, socklen_t len) {
#if SEXP_USE_GREEN_THREADS
sexp f; sexp f;
#endif
int res; int res;
res = accept(sock, addr, &len); res = accept(sock, addr, &len);
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS

19
tests/lib-tests.scm
View file

@ -14,14 +14,17 @@
(cond-expand (cond-expand
(modules (modules
(begin (load "tests/record-tests.scm")
(load "tests/record-tests.scm") (load "tests/hash-tests.scm")
(load "tests/hash-tests.scm") (load "tests/sort-tests.scm")
(load "tests/sort-tests.scm") (load "tests/io-tests.scm")
(load "tests/io-tests.scm") (load "tests/process-tests.scm")
(load "tests/process-tests.scm") (load "tests/system-tests.scm"))
(load "tests/system-tests.scm") (else #f))
(load "tests/thread-tests.scm")))
(cond-expand
((and modules threads)
(load "tests/thread-tests.scm"))
(else #f)) (else #f))
(test-end) (test-end)