factor: more top level forms.

[factor.git] / extra / text-to-speech / text-to-speech.factor

diff --git a/extra/text-to-speech/text-to-speech.factor b/extra/text-to-speech/text-to-speech.factor
index 5e72d506903b81528efddd5a97e279994ba21865..3736a86ff083d3f32b044bc71f816c4a8d2eb015 100644 (file)
--- a/extra/text-to-speech/text-to-speech.factor
+++ b/extra/text-to-speech/text-to-speech.factor
@@ -14,11 +14,9 @@ IN: text-to-speech
 
 HOOK: speak-text os ( str -- )
 
-{
-    { [ os macosx?  ] [ "text-to-speech.macosx"  ] }
-    { [ os linux?   ] [ "text-to-speech.linux"   ] }
-    { [ os windows? ] [ "text-to-speech.windows" ] }
-} cond require
+USE-LINUX: text-to-speech.linux
+USE-MACOSX: text-to-speech.macosx
+USE-WINDOWS: text-to-speech.windows
 
 GENERIC: speak ( obj -- )