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

package binary strip: work on "info.rkt" files that use `(module ....)

Browse Source
This commit is contained in:
Matthew Flatt 2014-01-09 14:07:26 -06:00
parent 258aa82282
commit 33b7f6f92f
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
racket/collects/pkg/strip.rkt
View File

@ -245,14 +245,19 @@
(with-module-reading-parameterization (with-module-reading-parameterization
(lambda () (read in))))))) (lambda () (read in)))))))
;; convert: ;; convert:
(define (convert-mod info-lib defns)
`(module info ,info-lib
(#%module-begin
(define assume-virtual-sources #t)
. ,(filter values
(map (fixup-info-definition get-info) defns)))))
(define new-content (define new-content
(match content (match content
[`(module info ,info-lib (#%module-begin . ,defns)) [`(module info ,info-lib (#%module-begin . ,defns))
`(module info ,info-lib (convert-mod info-lib defns)]
(#%module-begin ;; In case of `(module ...)` instead of `#lang ...`:
(define assume-virtual-sources #t) [`(module info ,info-lib . ,defns)
. ,(filter values (convert-mod info-lib defns)]))
(map (fixup-info-definition get-info) defns))))]))
;; write updated: ;; write updated:
(call-with-output-file* (call-with-output-file*
new-p new-p