Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-06-23 14:26:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Using (chibi log) instead of custom loggers.

Browse source
This commit is contained in:
Alex Shinn 2013-12-14 13:58:49 +09:00
parent 0e7baa96e8
commit 5ac68d65eb
2 changed files with 3 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/chibi/net/server.scm
View file

@ -29,19 +29,8 @@
(error "expected a listener socket, fileno or thunk" x))))
(define (run-net-server listener-or-addr handler . o)
(let* ((listener-thunk (make-listener-thunk listener-or-addr))
(max-requests (if (pair? o) (car o) default-max-requests))
(debug? (and (pair? o) (pair? (cdr o)))))
(define (log-error msg . args)
(display msg (current-error-port))
(for-each
(lambda (x)
(write-char #\space (current-error-port))
(display x (current-error-port)))
args)
(newline (current-error-port)))
(define (log-debug msg . args)
(if debug? (apply log-error msg args)))
(let ((listener-thunk (make-listener-thunk listener-or-addr))
(max-requests (if (pair? o) (car o) default-max-requests)))
(define (run sock addr count)
(log-debug "net-server: accepting request:" count)
(let ((ports

2
lib/chibi/net/server.sld
View file

@ -1,5 +1,5 @@
(define-library (chibi net server)
(import (chibi) (chibi net) (chibi filesystem) (srfi 18))
(import (chibi) (chibi net) (chibi filesystem) (chibi log) (srfi 18))
(export run-net-server make-listener-thunk)
(include "server.scm"))