Re: [Chicken-users] csc -extend with user-preprocessor-pass

[felix winkelmann]

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.


cheers,
felix