Skip to content
Browse files

Minor kludge fix for passes that allow variadic ports.

  • Loading branch information...
Shinmera committed Mar 29, 2019
1 parent da692dc commit 1962e270bae81572cfd3144fa3c8549bd564ec4c
Showing with 1 addition and 1 deletion.
  1. +1 −1 shader-pass.lisp
@@ -133,7 +133,7 @@
with texture-name = ',(loop for unit in units collect
(intern (format NIL "~a~a" :texture unit) "KEYWORD"))
for port in (flow:ports pass)
do (when (typep port 'uniform-port)
do (when (and (typep port 'uniform-port) (texture port))
(setf (uniform program (uniform-name port)) (pop texture-index))
(gl:active-texture (pop texture-name))
(gl:bind-texture :texture-2d (gl-name (texture port)))))

0 comments on commit 1962e27

Please sign in to comment.
You can’t perform that action at this time.