From c1b0d8559c3c35d4335d54b37fdd878ad48be5c0 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 18 May 2026 12:57:40 +0200 Subject: [PATCH] unexpected result from call-js corrected --- racket-webview.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/racket-webview.rkt b/racket-webview.rkt index 827c936..47c6207 100644 --- a/racket-webview.rkt +++ b/racket-webview.rkt @@ -763,14 +763,12 @@ (define/contract (webview-call-js wv js) (-> wv-win? string? (or/c string? list? boolean? hash? symbol? number?)) (let ((result (rkt-webview-call-js (wv-win-handle wv) js))) - (displayln result) (if (webview-call-js-result? result) (if (eq? (car result) 'oke) (hash-ref (fromJson (cadr result)) 'result #f) - (error - (format "Error calling javascript. Message: ~a" - (hash-ref (fromJson (cadr result)) 'exn result))) - ) + (begin + (err-webview "Error calling javascript: ~a" result) + #f)) (error (format "Wrong result from webview-call-js: ~a" result)) )