From b86744a699db3d6b071b7679b07e4d5e6e9ee7d1 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 15 Apr 2026 23:19:27 +0200 Subject: [PATCH] innerHTmL problems. Not synchronous? --- wv-window.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/wv-window.rkt b/wv-window.rkt index e83f601..13f9370 100644 --- a/wv-window.rkt +++ b/wv-window.rkt @@ -108,9 +108,9 @@ id))) (set! type (if (eq? js-type #f) #f - (if (= js-type -1) - 'unknown - (string->symbol (string-downcase js-type)))))) + (if (string? js-type) + (string->symbol (string-downcase js-type)) + 'unknown))) ) (let ((cl (cond ((eq? type 'text) wv-input/text%)