[Chicken-users] compiling with svn revision 12496

[F. Wittenberger]

Hi all,

I did not update my chicken for a week or so.  Now this pet can't
compile my code anymore (which hasn't been touched either since it
compiled successfully).

The message:

csc -c util-chicken.scm -include-path /home/jfw/build/Scheme/chicken
-include-path . -O2 -inline -feature use-vector+assoc-as-frame
-keyword-style suffix -extend extend.scm
-extend ../mechanism/notation/Lalr/lalr.scm -k  -compile-syntax -o
util-chicken.c -unit util -j util
Syntax error: illegal non-atomic object

        ()

        Expansion history:

        <syntax>                (list)
        <syntax>                (list (cons (quote make-character-table) 
(lambda4437 (x4438
r4439 c4440) (apply4441 (lambda4437 () (......
        <syntax>                (cons (quote make-character-table) (lambda4437 
(x4438 r4439
c4440) (apply4441 (lambda4437 () (quote ...
        <syntax>                (quote make-character-table)
        <syntax>                (lambda4437 (x4438 r4439 c4440) (apply4441 
(lambda4437 ()
(quote (make-hash-table char=? equal?-hash......
        <syntax>                (x4438 r4439 c4440)
        <syntax>                (apply4441 (lambda4437 () (quote 
(make-hash-table char=?
equal?-hash))) (strip-syntax4442 (cdr4443 x......
        <syntax>                (lambda4437 () (quote (make-hash-table char=? 
equal?-hash)))
<--


I found this as the last parameter to ##sys#register-compiled-module in
a .import.scm:

(list (cons 'make-character-table
              (lambda4437
                (x4438 r4439 c4440)
                (apply4441
                  (lambda4437 () '(make-hash-table char=? equal?-hash))
                  (strip-syntax4442 (cdr4443 x4438)))))
        (cons 'make-string-table
              (lambda4424
                (x4425 r4426 c4427)
                (apply4428
                  (lambda4424 () '(make-hash-table string=?
string-hash))
                  (strip-syntax4429 (cdr4430 x4425)))))
        (cons '%early-once-only
              (syntax-rules
                ()
                ((%early-once-only body ...) (begin body ...)))))

When I deleted those two "(cons 'make-*table...)" entries, it went
through.  (Not that it would yield in a functional result - I would not
expect that and stopped at the next error.)

BEst regards

/Jörg