On 2/11/07, minh thu <address@hidden> wrote:
> Hi,
>
> I'm trying the -extend <file> option of csc with the following <file>:
>
> (user-preprocessor-pass
> (lambda form
> (display (car form))
> (newline)
> '(display "..."))
>
> When compiling, the first top level form (of the being compiled file)
> is not displayed.
> Is it normal ?
>
No, that's a silly silly bug. Here's a patch:
--- old-chicken/batch-driver.scm 2007-02-12 08:03:19.223978592 +0100
+++ new-chicken/batch-driver.scm 2007-02-12 08:03:19.326962936 +0100
@@ -402,7 +402,7 @@
(let ([proc (user-preprocessor-pass)])
(when proc
(when verbose (printf "User preprocessing pass...~%~!"))
- (set! forms (cons (first forms) (map proc (cdr forms)))) ) )
+ (set! forms (map proc forms))))
(print "source" '|1| forms)
(begin-time)
Sorry.