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

rename to compile-vfasl

Browse Source 
original commit: 51c525dacc6f2a5627aa2cb1c13a25e072b04c5e
This commit is contained in:
Matthew Flatt 2018-12-23 10:52:51 -07:00
parent c3ef889099
commit 71c2efd2fc
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s/back.ss
View File

@ -126,7 +126,7 @@
(lambda (x)
(and x #t))))
(define generate-vfasl
(define compile-vfasl
($make-thread-parameter #f
(lambda (x)
(and x #t))))

2
s/compile.ss
View File

@ -442,7 +442,7 @@
(define (c-print-fasl x p)
(cond
[(generate-vfasl) (c-print-vfasl x p)]
[(compile-vfasl) (c-print-vfasl x p)]
[else
(let ([t ($fasl-table)] [a? (or (generate-inspector-information) (eq? ($compile-profile) 'source))])
(c-build-fasl x t a?)

2
s/primdata.ss
View File

@ -925,6 +925,7 @@
(compile-library-handler [sig [() -> (procedure)] [(procedure) -> (void)]] [flags])
(compile-profile [sig [() -> (ptr)] [(ptr) -> (void)]] [flags unrestricted])
(compile-program-handler [sig [() -> (procedure)] [(procedure) -> (void)]] [flags])
(compile-vfasl [sig [() -> (boolean)] [(ptr) -> (void)]] [flags])
(console-error-port [sig [() -> (textual-output-port)] [(textual-output-port) -> (void)]] [flags])
(console-input-port [sig [() -> (textual-input-port)] [(textual-input-port) -> (void)]] [flags])
(console-output-port [sig [() -> (textual-output-port)] [(textual-output-port) -> (void)]] [flags])
@ -960,7 +961,6 @@
(generate-interrupt-trap [sig [() -> (boolean)] [(ptr) -> (void)]] [flags unrestricted])
(generate-procedure-source-information [sig [() -> (boolean)] [(ptr) -> (void)]] [flags unrestricted])
(generate-profile-forms [sig [() -> (boolean)] [(ptr) -> (void)]] [flags unrestricted])
(generate-vfasl [sig [() -> (boolean)] [(ptr) -> (void)]] [flags])
(generate-wpo-files [sig [() -> (boolean)] [(ptr) -> (void)]] [flags])
(gensym-count [sig [() -> (uint)] [(uint) -> (void)]] [flags])
(gensym-prefix [sig [() -> (ptr)] [(ptr) -> (void)]] [flags unrestricted])