summaryrefslogtreecommitdiff
path: root/chickadee/graphics/buffer.scm
diff options
context:
space:
mode:
Diffstat (limited to 'chickadee/graphics/buffer.scm')
-rw-r--r--chickadee/graphics/buffer.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/chickadee/graphics/buffer.scm b/chickadee/graphics/buffer.scm
index f5ec8c6..37a77e4 100644
--- a/chickadee/graphics/buffer.scm
+++ b/chickadee/graphics/buffer.scm
@@ -204,6 +204,7 @@ USAGE may be:
NAME is simply an arbitrary string for debugging purposes that is
never sent to the GPU."
+ (assert-current-graphics-engine)
;; Weird bugs will occur when creating a new vertex buffer while a
;; vertex array is bound.
(with-graphics-state! ((vertex-array null-vertex-array))
@@ -561,6 +562,7 @@ argument may be overridden. The following values are supported:
- triangles
- triangle-strip
- triangle-fan"
+ (assert-current-graphics-engine)
(let ((array (%make-vertex-array (generate-vertex-array)
indices
attributes