bug#36787: Is current-language expected to break compilation in an eval-when?

[Rob Browning]

With Debian 2.2.4, this causes a compilation failure:

  (eval-when (expand)
    (current-language 'scheme))

  $ guile -s main.scm
  ;;; note: source file .../main.scm
  ;;;       newer than compiled 
/home/rlb/.cache/guile/ccache/2.2-LE-8-3.A/.../main.scm.go
  ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
  ;;;       or pass the --no-auto-compile argument to disable.
  ;;; compiling .../main.scm
  ;;; WARNING: compilation of .../main.scm failed:
  ;;; In procedure struct_vtable: Wrong type argument in position 1 (expecting 
struct): scheme

I wondered if that was expected.

Thanks
-- 
Rob Browning
rlb @defaultvalue.org and @debian.org
GPG as of 2011-07-10 E6A9 DA3C C9FD 1FF8 C676 D2C4 C0F0 39E9 ED1B 597A
GPG as of 2002-11-03 14DD 432F AE39 534D B592 F9A0 25C8 D377 8C7E 73A4