From 12ea950408ad8929da5ebcfd30335f8074c1276f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 27 Jun 2016 20:27:47 -0700 Subject: [PATCH] pong: FROM: doesn't support \ so fully qualify it. --- libs/pong/pong.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/libs/pong/pong.factor b/libs/pong/pong.factor index b132eb7170..f5765e0179 100644 --- a/libs/pong/pong.factor +++ b/libs/pong/pong.factor @@ -4,8 +4,6 @@ grouping kernel locals math math.intervals math.order math.rectangles math.vectors namespaces opengl opengl.gl opengl.glu processing.shapes sequences sequences.generalizations shuffle threads ui ui.gadgets ui.gestures ui.render ; -FROM: multi-methods => GENERIC: METHOD: ; -FROM: syntax => M: ; IN: pong ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -85,10 +83,10 @@ TUPLE: < ! Protocol for drawing PONG objects -GENERIC: draw ( obj -- ) ; +multi-methods:GENERIC: draw ( obj -- ) ; -METHOD: draw { } [ bottom-left ] [ dim>> ] bi rectangle ; -METHOD: draw { } [ pos>> ] [ diameter>> 2 / ] bi circle ; +multi-methods:METHOD: draw { } [ bottom-left ] [ dim>> ] bi rectangle ; +multi-methods:METHOD: draw { } [ pos>> ] [ diameter>> 2 / ] bi circle ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!