factor: trim using lists

[factor.git] / extra / game / worlds / worlds.factor

diff --git a/extra/game/worlds/worlds.factor b/extra/game/worlds/worlds.factor
index 2f1284a3fe5f0f2fe26ca0e3d2b943a658c5d6ce..5fdc110783be0342519daf92ea36a0b6b497220a 100644 (file)
--- a/extra/game/worlds/worlds.factor
+++ b/extra/game/worlds/worlds.factor
@@ -1,9 +1,9 @@
-! (c)2009 Joe Groff bsd license
+! Copyright (C) 2009 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
 USING: accessors audio.engine combinators concurrency.promises
-destructors fry game.input game.loop generic kernel math parser
-sequences threads ui ui.gadgets ui.gadgets.worlds ui.gestures
-words words.constant ;
-FROM: namespaces => change-global ;
+destructors game.input game.loop kernel math parser sequences
+threads ui ui.gadgets ui.gadgets.worlds vocabs.parser
+words.constant ;
 IN: game.worlds
 
 TUPLE: game-world < world
@@ -83,7 +83,7 @@ M: game-world apply-world-attributes
 
 SYNTAX: GAME:
     scan-new-word
-    game-attributes parse-main-window-attributes
+    game-attributes parse-window-attributes
     2dup define-attributes-word
     parse-definition
-    define-main-window ;
+    [ define-window ] [ 2drop current-vocab main<< ] 3bi ;