#lang racket/base

(provide win64? winapi)

(define win64? 
  (and (eq? 'windows (system-type))
       (equal? "win32\\x86_64" (path->string (system-library-subpath #f)))))

(define winapi (if (or win64?
                       (not (eq? 'windows (system-type))))
                   'default
                   'stdcall))
