]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/windows/winmm/winmm.factor
Fixes #2966
[factor.git] / basis / windows / winmm / winmm.factor
index 29908c7dc69995c9bf878f3ae4a8e27cf5e65009..c4b462358155547be5a5a0dc0731a3ce74e2edcf 100644 (file)
@@ -1,5 +1,5 @@
 ! Copyright (C) 2013 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
 USING: alien.c-types alien.syntax byte-arrays formatting kernel
 math windows.types ;
 IN: windows.winmm
@@ -13,7 +13,7 @@ FUNCTION: MCIERROR mciSendStringW (
   LPTSTR lpszReturnString,
   UINT cchReturn,
   HANDLE hwndCallback
-) ;
+)
 
 ALIAS: mciSendString mciSendStringW
 
@@ -25,7 +25,7 @@ ERROR: mci-error n ;
 : open-command ( path -- )
     "open \"%s\" type mpegvideo alias MediaFile" sprintf f 0 f
     mciSendString check-mci-error ;
-    
+
 : play-command ( -- )
     "play MediaFile" f 0 f mciSendString check-mci-error ;
 
@@ -37,4 +37,4 @@ ERROR: mci-error n ;
 
 
 : close-command ( -- )
-    "close MediaFile" f 0 f mciSendString check-mci-error ;
\ No newline at end of file
+    "close MediaFile" f 0 f mciSendString check-mci-error ;