On 2012-06-29, at 4:25 AM, Sven Hartrumpf wrote:
Hi all.
I debugged the following compilation problem (v. 4.6.6): I am using 'gsc -:s ' because I need define-syntax, but then cond-expand is not working correctly.
Any solutions?
Sven
Can you give more details on the nature of the error. When I try a simple example it works :
% cat foo.scm (cond-expand (gambit (define x 111) (define-syntax swap! (lambda (stx) (syntax-case stx () ((_ a b) (syntax (let ((value a)) (set! a b) (set! b value)))))))) (else (define x 222)))
(define y 333)
(swap! x y)
(pp x) (pp y) % gsc -:s -expansion foo.scm Expansion:
(define x 111)
(if ('#<procedure #2 ##eq?> void '#<procedure #3 void>) #!void (void))
(define y 333)
(let ((%%value12 x)) (let ((begin-temp.0 (set! x y))) (set! y %%value12)))
(pp x)
(pp y)
% gsi foo 333 111