[Larceny-users] library form for gl.scm

[Eduardo Cavazos]

William D Clinger wrote:

> The workaround is to replace that expression by something
> like
> 
>     (define ignored1
>       (foreign-file "/usr/X11R7/lib/libGL.so.1"))

Hmmm... that didn't seem to work for me.

To make this concrete, here's the simplest possible test case that 
demonstrates the problem.

If I load it via either one of these:

~ # larceny -- /scratch/_gl-test-case-a.scm

~ # larceny -err5rs -- /scratch/_gl-test-case-a.scm

I get this error:

ERROR detected during macro expansion:
Definition out of context
(define libGL (foreign-file "libGL.so.1"))

----------------------------------------------------------------------
(library

  (larceny gl)

  (export GL_TRUE glBegin)

  (import (rnrs base)
  	 (rnrs io simple)
  	 (err5rs records syntactic))

  (define libGL (foreign-file "libGL.so.1"))

  (define GL_TRUE #x1)

  (define-function void glBegin (int))

  )
----------------------------------------------------------------------