From 54ac76dfae3bb7b0b6cefe0500f5c41bae84d5ea Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 18 May 2016 16:13:30 -0400
Subject: render: Fix set-mesh.

* sly/render.scm (set-mesh): Lift set-graphics-mesh!, not
  set-graphics-shader! -_-
---
 sly/render.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sly')

diff --git a/sly/render.scm b/sly/render.scm
index 5bc0d30..fe88569 100644
--- a/sly/render.scm
+++ b/sly/render.scm
@@ -441,7 +441,7 @@ argument is a graphics context, into the rendering monad."
   (render-lift1 set-graphics-shader!))
 
 (define set-mesh
-  (render-lift1 set-graphics-shader!))
+  (render-lift1 set-graphics-mesh!))
 
 (define set-framebuffer
   (render-lift1 set-graphics-framebuffer!))
-- 
cgit v1.2.3