diff --git a/private/web-racket.rkt b/private/web-racket.rkt index 4458368..6aeda6c 100644 --- a/private/web-racket.rkt +++ b/private/web-racket.rkt @@ -36,6 +36,7 @@ ww-debug ww-error ww-set-log-level + ww-log-level (all-from-out "css.rkt") (all-from-out "menu.rkt") diff --git a/private/web-wire.rkt b/private/web-wire.rkt index 3f6b630..3ad8e2b 100644 --- a/private/web-wire.rkt +++ b/private/web-wire.rkt @@ -137,7 +137,7 @@ (define (ww-set-log-level level) (set! _ww-log-level level) - (unless (eq? ww-current-handle #f) + (when (not (eq? ww-current-handle #f)) (ww-log-level _ww-log-level)) )