suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win64: fix sgl

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-10 17:42:05 -07:00
parent 8ccee771f8
commit 45aa84b6ce
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/sgl/gl.rkt
View File

@ -19,10 +19,14 @@
(define (unavailable name) (define (unavailable name)
(lambda () (lambda x (error name "unavailable on this system")))) (lambda () (lambda x (error name "unavailable on this system"))))
(define win32?
(and (eq? 'windows stype)
(equal? "win32\\i386" (path->string (system-library-subpath #f)))))
(define-syntax _fun* (define-syntax _fun*
(syntax-rules () (syntax-rules ()
[(_fun* x ...) [(_fun* x ...)
(if (eq? 'windows stype) (_fun #:abi 'stdcall x ...) (_fun x ...))])) (if win32? (_fun #:abi 'stdcall x ...) (_fun x ...))]))
(define-syntax define-foreign-lib (define-syntax define-foreign-lib
(syntax-rules (->) (syntax-rules (->)