more debugging on stop.svg
This commit is contained in:
@@ -199,6 +199,8 @@
|
||||
(dbg-webview "process-file: ext = ~a, path = ~a" ext path)
|
||||
(let ((content (file->bytes path)))
|
||||
(dbg-webview "path = ~a, number of bytes read: ~a" path (bytes-length content))
|
||||
(when (string-suffix? (format "~a" path) "stop.svg")
|
||||
(dbg-webview content))
|
||||
(display content out)))
|
||||
|
||||
(define (make-security-token)
|
||||
|
||||
Reference in New Issue
Block a user