Fixes #2966

[factor.git] / basis / windows / winmm / winmm.factor

diff --git a/basis/windows/winmm/winmm.factor b/basis/windows/winmm/winmm.factor
index fa87ad900145bec0dfa24fac22a478304521e452..c4b462358155547be5a5a0dc0731a3ce74e2edcf 100644 (file)
--- a/basis/windows/winmm/winmm.factor
+++ b/basis/windows/winmm/winmm.factor
@@ -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
@@ -20,7 +20,7 @@ ALIAS: mciSendString mciSendStringW
 ERROR: mci-error n ;
 
 : check-mci-error ( n -- )
-    [ throw-mci-error ] unless-zero ;
+    [ mci-error ] unless-zero ;
 
 : open-command ( path -- )
     "open \"%s\" type mpegvideo alias MediaFile" sprintf f 0 f