javascript generator syntax

2026-04-14 15:10:02 +02:00
parent 4d0a80cb4e
commit a1646d67cf
4 changed files with 415 additions and 49 deletions
--- a/racket-webview.rkt
+++ b/racket-webview.rkt
@@ -720,8 +720,9 @@


 (define/contract (webview-call-js wv js)
-  (-> wv-win? string? (or/c string? list? boolean? hash? symbol?))
+  (-> 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)