From b59ebd7ad5b33ddebe56313426828981eb507e4a Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 1 Feb 2013 17:10:51 +0100
Subject: [PATCH] definitions for common types

* figl/low-level/support.scm: Re-export the types module, and define
  void.
---
 figl/low-level/support.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/figl/low-level/support.scm b/figl/low-level/support.scm
index 7b46df4..347679a 100644
--- a/figl/low-level/support.scm
+++ b/figl/low-level/support.scm
@@ -24,7 +24,13 @@
 (define-module (figl low-level support)
   #:use-module (system foreign)
   #:export (current-gl-resolver
-            define-gl-procedure))
+            define-gl-procedure
+            void))
+
+(define void #f)
+
+(module-use! (module-public-interface (current-module))
+             (resolve-interface '(figl low-level types)))
 
 (define (default-foreign-resolver name)
   (dynamic-pointer name (dynamic-link)))
-- 
2.20.1