suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unable to currently figure out what's wrong with my expand-out-images subphase. Argh.

Browse Source
This commit is contained in:
Danny Yoo 2011-11-02 16:41:43 -04:00
parent af9e58c3b1
commit 08bcfb7c6a
2 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
expand-out-images.rkt
View File

@ -64,7 +64,8 @@
(define (on-expr expr)
(kernel-syntax-case (syntax-disarm expr code-insp) #f
(define disarmed (syntax-disarm expr code-insp))
(kernel-syntax-case disarmed #t
[(#%plain-lambda formals subexpr ...)
(quasisyntax/loc expr
@ -187,7 +188,7 @@
(define (on-toplevel stx)
(kernel-syntax-case (syntax-disarm stx code-insp) #f
(kernel-syntax-case (syntax-disarm stx code-insp) #t
[(#%provide raw-provide-spec ...)
stx]
@ -199,16 +200,12 @@
(define-values ids #,(on-expr #'expr)))]
[(define-syntaxes ids expr)
;#'(void)
(quasisyntax/loc stx
(define-syntaxes ids #,(on-expr #'expr)))
]
(define-syntaxes ids #,(on-expr #'expr)))]
[(define-values-for-syntax ids expr)
;#'(void)
(quasisyntax/loc stx
(define-values-for-syntax ids #,(on-expr #'expr)))
]
(define-values-for-syntax ids #,(on-expr #'expr)))]
[else
(on-expr stx)]))

3
get-module-bytecode.rkt
View File

@ -86,4 +86,5 @@
;(printf "got stx; now expanding out the images\n")
#;(define expanded-stx (expand-out-images stx))
;(printf "now trying to compile the expanded syntax\n")
#;(compile expanded-stx)))
#;(compile expanded-stx)
))