the opengl demos now work unmodified under both ikarus and ypsilon.

lab/ypsilon-ffi/glut-demo.scm

@@ -9,12 +9,12 @@
 ;;   Linux:   libGL.so.1 libglut.so.3    
 
 
-(import (gl) (glut) 
+(import 
+  (gl) (glut) 
   (ypsilon-compat)
-        (rename (except (rnrs) angle display) 
-                (reverse rnrs:reverse))
+  (rename (except (rnrs) angle display) (reverse rnrs:reverse))
   (rnrs programs))
-(begin
+
 
 
 (define object glutSolidIcosahedron)
@@ -176,4 +176,4 @@
     (glutAttachMenu GLUT_RIGHT_BUTTON)
     (glutMainLoop)))
 
-  (run))
+(run)

lab/ypsilon-ffi/ypsilon-compat.ypsilon.ss

@@ -0,0 +1,6 @@
+
+(library (ypsilon-compat)
+  (export on-windows on-darwin on-linux on-freebsd on-posix
+          load-shared-object c-argument c-function 
+          microsecond usleep format)
+  (import (core) (ffi)))