[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] csc -extend with user-preprocessor-pass
From: |
felix winkelmann |
Subject: |
Re: [Chicken-users] csc -extend with user-preprocessor-pass |
Date: |
Mon, 12 Feb 2007 08:05:35 +0100 |
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