From a248fc28a8288a990aee5f9bafdcc581aa6b8370 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 15 Nov 2011 08:18:22 -0800 Subject: [PATCH] opengl: fix small typo in fix-coordinates stack effect. Fixes #406. --- basis/opengl/opengl.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/opengl/opengl.factor b/basis/opengl/opengl.factor index dc7fe152c9..9269a4f56c 100644 --- a/basis/opengl/opengl.factor +++ b/basis/opengl/opengl.factor @@ -200,7 +200,7 @@ MACRO: set-draw-buffers ( buffers -- ) : with-translation ( loc quot -- ) [ [ gl-translate ] dip call ] do-matrix ; inline -: fix-coordinates ( point1 point2 -- x1 y2 x2 y2 ) +: fix-coordinates ( point1 point2 -- x1 y1 x2 y2 ) [ first2 [ >fixnum ] bi@ ] bi@ ; : gl-set-clip ( loc dim -- )