bugfix dbg-webview without "~a"

This commit is contained in:
2026-04-12 17:00:23 +02:00
parent da01a87dce
commit d9e94f7fed

View File

@@ -200,7 +200,7 @@
(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") (when (string-suffix? (format "~a" path) "stop.svg")
(dbg-webview content)) (dbg-webview "~a" content))
(display content out))) (display content out)))
(define (make-security-token) (define (make-security-token)