/ext/gl/source.scm

 1
 2(case scheme-implementation
 3
 4  ((ypsilon) (require-lib "gl/ypsilon"))
 5  ((larceny) (require-lib "gl/larceny"))
 6  ((ikarus)  (require-lib "gl/ikarus"))
 7
 8  ((chicken)
 9   (load (string-append abstracting-root-directory "/support/chicken/gl/gl.so")))
10
11  ((gambit)
12   (load (string-append abstracting-root-directory "/support/gambit/gl/gl"))))
13