17 ('closure 'closure) ; only available in codegen
19 ((builtin? x) 'builtin)
21 ((integer? x) 'int-literal)
22 ((boolean? x) 'bool-literal)))
24 ;; (define (ast-recurse f x)
27 (define let-bindings cadr)
28 (define let-body cddr)
31 (and (list? x) (eq? (car x) 'lambda)))
33 ; for use in normalized form
34 (define lambda-arg caadr)
36 (define lambda-args cadr)
37 (define lambda-body caddr)