Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / extra / ui / windows / windows.factor

diff --git a/extra/ui/windows/windows.factor b/extra/ui/windows/windows.factor
index 4a9417fc6b5f65bddf27f215efffdded427e940f..3fc5d4abcd8fac94968ff0095a5fe47b507d6fd4 100755 (executable)
--- a/extra/ui/windows/windows.factor
+++ b/extra/ui/windows/windows.factor
@@ -506,6 +506,9 @@ M: windows-ui-backend ui
         ] [ cleanup-win32-ui ] [ ] cleanup
     ] ui-running ;
 
+M: windows-ui-backend beep ( -- )
+    0 MessageBeep drop ;
+
 windows-ui-backend ui-backend set-global
 
 [ "ui" ] main-vocab-hook set-global