(define-module (figl low-level))
-(define-syntax-rule (define-gl-procedure scheme-name c-name prototype
- docstring)
- (begin
- (define (scheme-name)
- docstring
- (cons c-name 'prototype))
- (export scheme-name)))
-
-(include-from-path "figl/low-level.inc.scm")