-

private/web-racket.rkt

@@ -35,7 +35,7 @@
            ww-set-debug
            ww-debug
            ww-error
-           ww-log-level
+           ww-set-log-level
 
            (all-from-out "css.rkt")
            (all-from-out "menu.rkt")

private/web-wire.rkt

@@ -17,6 +17,7 @@
            ww-stop
 
            ww-set-debug
+           ww-set-log-level
            ww-debug
            ww-error
            ww-display-log
@@ -127,9 +128,18 @@
   ;; web-wire handling (interaction with the library)
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+  (define ww-current-handle #f)
+
   (define _ww-debug #t)
+  (define _ww-log-level 'warning)
   
   (define (ww-set-debug yn) (set! _ww-debug yn))
+  
+  (define (ww-set-log-level level)
+    (set! _ww-log-level level)
+    (unless (eq? ww-current-handle #f)
+      (ww-log-level _ww-log-level))
+    )
 
   (define (do-debug str . var)
     (when _ww-debug
@@ -189,8 +199,6 @@
     #:transparent
     )
 
-  (define ww-current-handle #f)
-
   (define evt-sem  (make-semaphore))
   (define evt-fifo (make-queue))
   (define log-fifo (make-queue))
@@ -357,7 +365,7 @@
           (set! ww-current-handle h))
         ))
     (unless (null? args)
-      (ww-log-level (car args)))
+      (ww-set-log-level (car args)))
     ww-current-handle)
 
   (define (ww-start . args)