From 422b1d1e0915a2b8743a1badcdb881f48f61d35a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 13 Nov 2008 16:03:26 +0000
Subject: [PATCH] make keep-lines? argument optional

svn: r12426
---
 collects/compiler/xform.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/compiler/xform.ss b/collects/compiler/xform.ss
index 63c27773c5..8907315faa 100644
--- a/collects/compiler/xform.ss
+++ b/collects/compiler/xform.ss
@@ -5,7 +5,7 @@
 
 (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)]
         [flags (expand-for-compile-variant
                 (current-extension-preprocess-flags))]