pair? afhandeling toegevoegd.

2026-07-03 09:04:39 +02:00
parent 8bee76328b
commit e8c83c061a
1 changed files with 1 additions and 0 deletions
@@ -51,6 +51,7 @@
        [(boolean? v) (if v "true" "false")]
        [(null? v) "[]"]
        [(list? v) (string-append "[" (string-join (map js-datum v) ", ") "]")]
+        [(pair? v) (js-datum (list (car v) (cdr v)))]
        [else (error 'js-datum "unsupported datum: ~e" v)]))

 (define (js-stmt s)