coops: Error: during expansion of (define-class ...) - unbound variable: alist-cons

[Moritz Heidkamp]

The example at ​http://moritz.twoticketsplease.de/files/dirty-coops.scm fails with the above message. coopse is probably missing something like (begin-for-syntax (use srfi-1)) there!

[felix winkelmann]

Thanks - I have tagged a new version (1.3).

[felix winkelmann]

Milestone 4.7.0 deleted

[Moritz Heidkamp]

Oddly, I again/still get this error with coops 1.6 and Chicken 4.7 now.

[Moritz Heidkamp]

Ah, the fix you commited for this was to add (import-for-syntax srfi-1). This doesn't seem to do the trick anymore. Replacing it with this works though:

(begin-for-syntax
 (import chicken)
 (use srfi-1))

Not sure if there is a better solution, perhaps?

[felix winkelmann]

Ugh. Thanks. 1.7 has been tagged.

[Jim Ursetto]

This is reported to break coops on Chicken 4.6.5 (at least).

[ewfalor]

Here's the error trace I'm getting with chicken-install coops on Windows Chicken 4.6.5:

installing coops: ...
changing current directory to C:\Users\efalor\AppData\Local\Temp/temp30c0/coops
  "C:\chicken\bin\csi" -bnq -setup-mode -e "(require-library setup-api)" -e "(import setup-api)" -e "
(setup-error-handling)" -e "(extension-name-and-version '(\"coops\" \"\"))" "C:\Users\efalor\AppData\
Local\Temp\temp30c0\coops\coops.setup"
  ""C:\chicken\bin\csc"" -feature compiling-extension -setup-mode    -s -O3 -d1 coops-module.scm -JS
-o coops.so

Error: during expansion of (register-generic-procedure1229 ...) - unbound variable: when

        Call history:

        <eval>    (rename1169 (##core#syntax getter-with-setter))
        <eval>    (##sys#cons (##sys#cons (rename1169 (##core#syntax make-generic-procedure/name)) (##sys#cons name ar......
        <eval>    (##sys#cons (rename1169 (##core#syntax make-generic-procedure/name)) (##sys#cons name args))
        <eval>    (rename1169 (##core#syntax make-generic-procedure/name))
        <eval>    (##sys#cons name args)
        <eval>    (##sys#cons (##sys#cons (rename1169 (##core#syntax make-generic-procedure/name)) (##sys#cons (##sys#......
        <eval>    (##sys#cons (rename1169 (##core#syntax make-generic-procedure/name)) (##sys#cons (##sys#cons (rename......
        <eval>    (rename1169 (##core#syntax make-generic-procedure/name))
        <eval>    (##sys#cons (##sys#cons (rename1169 (##core#syntax setter)) (##sys#cons name (quote1168 ()))) args)
        <eval>    (##sys#cons (rename1169 (##core#syntax setter)) (##sys#cons name (quote1168 ())))
        <eval>    (rename1169 (##core#syntax setter))
        <eval>    (##sys#cons name (quote1168 ()))
        <syntax>          (##core#begin (register-generic-procedure1229 print-object) (define1230 print-object (#%getter-with-......
        <syntax>          (register-generic-procedure1229 print-object)
        <eval>    (cadr x)
        <eval>    (when (symbol? name) (put! name (quote ##coops#generic) (or (##sys#current-module) #t)))   <--

Error: shell command terminated with non-zero exit status 70: ""C:\chicken\bin\chicken.exe" "coops-module.scm" -output-file "coops.c" -dynamic -feature chicken-compile-shared -feature compiling-extension -setup-mode -optimize-level 3 -debug-level 1 -emit-all-import-libraries -scrutinize"

Error: shell command failed with nonzero exit status 1:

  ""C:\chicken\bin\csc"" -feature compiling-extension -setup-mode    -s -O3 -d1 coops-module.scm -JS -o coops.so

[felix winkelmann]

It seems to work with 4.6.7 and 4.7.4. I'm not sure what to do and if or how to support older chickens. Does syn's suggested modifications work with 4.6.5?

[felix winkelmann]

I close this now. I think upgrading to 4.7.0 is acceptable.