pair? afhandeling toegevoegd.
This commit is contained in:
@@ -51,6 +51,7 @@
|
|||||||
[(boolean? v) (if v "true" "false")]
|
[(boolean? v) (if v "true" "false")]
|
||||||
[(null? v) "[]"]
|
[(null? v) "[]"]
|
||||||
[(list? v) (string-append "[" (string-join (map js-datum 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)]))
|
[else (error 'js-datum "unsupported datum: ~e" v)]))
|
||||||
|
|
||||||
(define (js-stmt s)
|
(define (js-stmt s)
|
||||||
|
|||||||
Reference in New Issue
Block a user