diff options
| -rw-r--r-- | guix.scm | 4 | ||||
| -rw-r--r-- | starling/kernel.scm | 2 | ||||
| -rw-r--r-- | starling/node-2d.scm | 2 |
3 files changed, 4 insertions, 4 deletions
@@ -133,7 +133,7 @@ SDL2 C shared library via the foreign function interface.") (license license:lgpl3+)))) (define chickadee - (let ((commit "5d5d447356d7ec06e3d40ae690cb32c935704e58")) + (let ((commit "fec2bca489fa67f67bb6047215ebceb831305109")) (package (name "chickadee") (version (string-append "0.5.0-1." (string-take commit 7))) @@ -144,7 +144,7 @@ SDL2 C shared library via the foreign function interface.") (commit commit))) (sha256 (base32 - "0gk58z5gnwi0ybdbj6rvmbyzm4bln7dljj0q9x7gpcz5j83nxcmf")))) + "0li960zm6hyj190d23cls9pqbn5a204rx9x97d6spbisz2q7jpik")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0") diff --git a/starling/kernel.scm b/starling/kernel.scm index b973947..1aed4f3 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -309,7 +309,7 @@ (define-method (render-tree (kernel <kernel>) alpha) (let ((start-time (elapsed-time))) - (with-graphics-state! ((viewport (default-viewport kernel))) + (with-graphics-state! ((g:viewport (default-viewport kernel))) (clear-viewport) (next-method)) (sdl2:swap-gl-window (window kernel)) diff --git a/starling/node-2d.scm b/starling/node-2d.scm index af6e3bc..8ff7623 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -169,7 +169,7 @@ (begin (when (target camera) (follow-target camera)) - (with-graphics-state ((viewport (viewport camera))) + (with-graphics-state ((g:viewport (viewport camera))) (with-projection (if (target camera) (view-matrix camera) (projection-matrix camera)) |