array parameters also accept pointers

[clinton/guile-figl.git] / maint / update-low-level-bindings

diff --git a/maint/update-low-level-bindings b/maint/update-low-level-bindings
index bd3872f..5764bc2 100755 (executable)
--- a/maint/update-low-level-bindings
+++ b/maint/update-low-level-bindings
@@ -84,7 +84,7 @@
   (newline port)
   (pretty-print
    `(define-module (figl ,mod-name low-level)
-      #:use-module (figl runtime)
+      #:use-module (figl ,mod-name runtime)
       #:use-module (figl ,mod-name types)
       #:export ,(append-map (lambda (def)
                               (map car (gl-definition-prototypes def)))
@@ -94,10 +94,11 @@
   (for-each
    (lambda (def)
      (pretty-print
-      `(define-foreign-procedure ,(gl-definition-prototypes def)
-         ,(string-trim-both
-           (stexi->plain-text
-            (gl-definition-documentation def))))
+      `(,(symbol-append 'define- mod-name '-procedures)
+        ,(gl-definition-prototypes def)
+        ,(string-trim-both
+          (stexi->plain-text
+           (gl-definition-documentation def))))
       port)
      (newline port))
    defs))