Browse files

Only perform text calculations on string set

  • Loading branch information...
Shinmera committed Dec 9, 2018
1 parent e033f1f commit 4e4e33aca070534b3f5fb75c79974550a140b159
Showing with 1 addition and 1 deletion.
  1. +1 −1 text.lisp
@@ -98,7 +98,7 @@ void main(){
(when (wrap text)
(setf (text text) (text text))))

(defmethod (setf text) :before (string (text text))
(defmethod (setf text) :before ((string string) (text text))
(let ((vao (vertex-array text))
(vbo (slot-value text 'vbo))
(ebo (slot-value text 'ebo))

0 comments on commit 4e4e33a

Please sign in to comment.