core: Add the shuffler words but without primitives.

[factor.git] / extra / gpu / render / render.factor

diff --git a/extra/gpu/render/render.factor b/extra/gpu/render/render.factor
index 7761669eeca2fb79d4d5df633f43bd6cc13cb840..e37f498b7d89ea1ca0715193c69854f53749719b 100755 (executable)
--- a/extra/gpu/render/render.factor
+++ b/extra/gpu/render/render.factor
@@ -554,7 +554,7 @@ SYNTAX: UNIFORM-TUPLE:
 
 : bind-output-attachments ( program-instance framebuffer attachments -- )
     dup first sequence?
-    [ bind-named-output-attachments ] [ [ drop ] 2dip bind-unnamed-output-attachments ] if ;
+    [ bind-named-output-attachments ] [ nipd bind-unnamed-output-attachments ] if ;
 
 GENERIC: bind-transform-feedback-output ( output -- )