unexpected result from call-js corrected

2026-05-18 12:57:40 +02:00
parent dff979350a
commit c1b0d8559c
1 changed files with 3 additions and 5 deletions
@@ -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))
        )