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