opengl.gl.extensions: simpler definition of gl-calling-convention

[factor.git] / basis / opengl / gl / extensions / extensions.factor

diff --git a/basis/opengl/gl/extensions/extensions.factor b/basis/opengl/gl/extensions/extensions.factor
index 7944ed1455a0237719053b141860d12d56cd6a3a..4fbf78bac2029551af35fc5627f50a1d6e69e3fc 100644 (file)
--- a/basis/opengl/gl/extensions/extensions.factor
+++ b/basis/opengl/gl/extensions/extensions.factor
@@ -46,6 +46,9 @@ reset-gl-function-number-counter
     names return function-effect
     define-declared ;
 
+: gl-function-calling-convention ( -- symbol )
+    os windows? [ stdcall ] [ cdecl ] if ;
+
 SYNTAX: GL-FUNCTION:
     gl-function-calling-convention
     scan-function-name