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