/ext/gl/source.scm

http://github.com/dharmatech/abstracting · Scheme · 13 lines · 8 code · 5 blank · 0 comment · 0 complexity · 07e4c9ecba61b2cc56de0041c940d1b0 MD5 · raw file 

    

  1. (case scheme-implementation
    2. 

  2. 

  3.   ((ypsilon) (require-lib "gl/ypsilon"))
    4. 

  4.   ((larceny) (require-lib "gl/larceny"))
    5. 

  5.   ((ikarus)  (require-lib "gl/ikarus"))
    6. 

  6. 

  7.   ((chicken)
    8. 

  8.    (load (string-append abstracting-root-directory "/support/chicken/gl/gl.so")))
    9. 

  9. 

  10.   ((gambit)
    11. 

  11.    (load (string-append abstracting-root-directory "/support/gambit/gl/gl"))))
    12.