From d4587d974c058980dce65aa86e473f801aedcd6c Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Thu, 29 May 2008 12:30:03 -0400
Subject: [PATCH] Fixed cut-and-paste error.

--HG--
branch : trunk
---
 mojoshader_opengl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mojoshader_opengl.c b/mojoshader_opengl.c
index e0760144..94e5d190 100644
--- a/mojoshader_opengl.c
+++ b/mojoshader_opengl.c
@@ -998,7 +998,7 @@ static void impl_ARB1_UseProgramObject(MOJOSHADER_glProgram *program)
     } // if
 
     ctx->glBindProgramARB(GL_VERTEX_PROGRAM_ARB, vhandle);
-    ctx->glBindProgramARB(GL_FRAGMENT_PROGRAM_ARB, vhandle);
+    ctx->glBindProgramARB(GL_FRAGMENT_PROGRAM_ARB, phandle);
 } // impl_GLSL_UseProgramObject