more debugging on stop.svg

This commit is contained in:
2026-04-12 16:56:06 +02:00
parent 41dd0adb27
commit da01a87dce

View File

@@ -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)