diff options
Diffstat (limited to 'bffe')
-rw-r--r-- | bffe/server.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index 7da2991..5eb8d0d 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -18,6 +18,8 @@ (define-module (bffe server) #:use-module (srfi srfi-1) + #:use-module (srfi srfi-9) + #:use-module (srfi srfi-9 gnu) #:use-module (srfi srfi-11) #:use-module (srfi srfi-19) #:use-module (srfi srfi-71) @@ -36,6 +38,7 @@ #:use-module (prometheus) #:use-module (system repl error-handling) #:use-module (fibers) + #:use-module (fibers scheduler) #:use-module (fibers channels) #:use-module (fibers conditions) #:use-module (fibers web server) @@ -53,6 +56,13 @@ #:use-module (bffe view activity) #:export (start-bffe-web-server)) +;; TODO Work around this causing problems with backtraces +;; https://github.com/wingo/fibers/issues/76 +(set-record-type-printer! + (@@ (fibers scheduler) <scheduler>) + (lambda (scheduler port) + (display "#<scheduler>" port))) + (define (make-state-channel) (let ((channel (make-channel))) (call-with-new-thread |