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

make keep-lines? argument optional

Browse Source 
svn: r12426
This commit is contained in:
Matthew Flatt 2008-11-13 16:03:26 +00:00
parent 358bc2bbed
commit 422b1d1e09
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/xform.ss
View File

@ -5,7 +5,7 @@
(provide xform) (provide xform)
(define (xform quiet? src dest header-dirs #:keep-lines? keep-lines?) (define (xform quiet? src dest header-dirs #:keep-lines? [keep-lines? #f])
(let ([exe (current-extension-compiler)] (let ([exe (current-extension-compiler)]
[flags (expand-for-compile-variant [flags (expand-for-compile-variant
(current-extension-preprocess-flags))] (current-extension-preprocess-flags))]