chi-global-macro complains when loading a serialized variable transformer

[Gwen Weinholt]

There's a problem with serializing or loading serialized variable transformers:

$ cat foo.sls
#!r6rs
(library (foo)
  (export p.car)
  (import (rnrs))

  (define p (cons 4 5))
  (define-syntax p.car
    (make-variable-transformer
     (lambda (x)
       (syntax-case x (set!)
         [(set! _ e) #'(set-car! p e)]
         [(_ . rest) #'((car p) . rest)]
         [_ #'(car p)])))))
$ cat foo.sps
#!r6rs
(import (rnrs) (foo))
(display p.car)
(newline)
$ export IKARUS_LIBRARY_PATH=.
$ ikarus --r6rs-script foo.sps
4
$ ikarus --compile-dependencies foo.sps
Serializing "/home/weinholt/.ikarus/precompiled/tmp/foo.sls.ikarus-64bit-fasl" ...
$ ikarus --r6rs-script foo.sps
Unhandled exception:
 Condition components:
   1. &assertion
   2. &who: chi-global-macro
   3. &message: "BUG: not a procedure"
   4. &irritants: ((macro! . #<procedure [char 142 of ./foo.sls]>))

I'm running Ikarus Scheme version 0.0.4-rc1+, 64-bit (revision 1859, build 2009-09-30).

[Abdulaziz Ghuloum (aghuloum)]

Fixed in 1860. Thanks.