summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-03-16 17:11:16 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-03-16 17:11:16 -0400
commitda469076e61e8d25e8af57a0d214cb3a664eee7d (patch)
tree5dec5cabd0f5f906eef6bcda04bea73b771e0835
parent92e2d98717393d25738060b56e4c15a1c15e9345 (diff)
Update to latest chickadee commit.
-rw-r--r--guix.scm4
-rw-r--r--starling/kernel.scm2
-rw-r--r--starling/node-2d.scm2
3 files changed, 4 insertions, 4 deletions
diff --git a/guix.scm b/guix.scm
index 4d11ee0..1e5003d 100644
--- a/guix.scm
+++ b/guix.scm
@@ -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))