On Mon, Feb 16, 2009 at 12:51 AM, Koen Weddepohl <[email protected]> wrote:
>
> The functions sdl-gl-set-attribute and sdl-gl-get-attribute are recognized,
> but when I call sdl-gl-get-attribute it doesn't seem to return the value
> I've set with sdl-set-attribute. I'm not sure if I'm doing something wrong,
> I haven't used these two functions before.
>
This is the code that implements it:
(define sdl-gl-get-attribute
(let ((get (foreign-lambda int "SDL_GL_GetAttribute" unsigned-int
(pointer int))))
(lambda (attr)
(let-location ((ptr int))
(let ((r (get attr (location ptr))))
(and (zero? r) ptr))))))
I haven't used this before. Is this the correct implementation?
cheers,
felix
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
