[Larceny-users] FFI error when mixing SRFI 27 and (glut)

[Eduardo Cavazos]

On Mon, 2009-12-28 at 09:58 -0500, Felix Klock wrote:

> I just filed the problem in Larceny's bug database as Ticket #659:
> 
>   https://trac.ccs.neu.edu/trac/larceny/ticket/659

Felix,

Here's a shorter test case.

This script generates the error:

----------------------------------------------------------------------
(import (rnrs)
        (srfi :19)
        (test-larceny-glut))

(glutInit (vector 0) (vector ""))
----------------------------------------------------------------------

where '(test-larceny-glut)' is:

----------------------------------------------------------------------
(library (test-larceny-glut)
  
  (export glutInit)

  (import (rnrs) (primitives foreign-file foreign-procedure))

  (define libGLUT (foreign-file "libglut.so.3"))
  
  (define-syntax define-function
    (syntax-rules ()
      ((_ ret name args)
       (define name (foreign-procedure (symbol->string 'name) 'args
'ret)))))

  (define-function void glutInit (boxed boxed))

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

Note that SRFI 27 is off the hook; the above is using SRFI 19.

Ed