From 9324457dbb9ded410442cb32adc7e72281e17aa8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 27 Jun 2016 22:38:31 -0700
Subject: [PATCH] pong: fix syntax

---
 libs/pong/pong.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/libs/pong/pong.factor b/libs/pong/pong.factor
index f5765e0179..742f043fbf 100644
--- a/libs/pong/pong.factor
+++ b/libs/pong/pong.factor
@@ -1,6 +1,6 @@
 USING: accessors alien.c-types alien.data arrays calendar colors
 combinators combinators.short-circuit flatland generalizations
-grouping kernel locals math math.intervals math.order
+grouping kernel locals math math.intervals math.order multi-methods
 math.rectangles math.vectors namespaces opengl opengl.gl
 opengl.glu processing.shapes sequences sequences.generalizations
 shuffle threads ui ui.gadgets ui.gestures ui.render ;
@@ -99,12 +99,12 @@ TUPLE: <pong> < gadget paused field ball player computer ;
   T{ <paddle>     { pos { 200 396 } } { dim {  75   4 } } } clone >>player
   T{ <computer>   { pos { 200   0 } } { dim {  75   4 } } } clone >>computer ;
 
-M: <pong> pref-dim* ( <pong> -- dim ) drop { 400 400 } ;
-M: <pong> ungraft*  ( <pong> --     ) t >>paused drop  ;
+syntax:M: <pong> pref-dim* ( <pong> -- dim ) drop { 400 400 } ;
+syntax:M: <pong> ungraft*  ( <pong> --     ) t >>paused drop  ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-M:: <pong> draw-gadget* ( PONG -- )
+syntax:M:: <pong> draw-gadget* ( PONG -- )
 
   PONG computer>> draw
   PONG player>>   draw