factor: update download to return path and using lists

[factor.git] / extra / gpu / demos / bunny / bunny.factor

diff --git a/extra/gpu/demos/bunny/bunny.factor b/extra/gpu/demos/bunny/bunny.factor
index dc412f13701afb74cbec6b694bdf96af55e62fd4..97bde0ad8739c1d5381a29a96d375d14619b1a28 100644 (file)
--- a/extra/gpu/demos/bunny/bunny.factor
+++ b/extra/gpu/demos/bunny/bunny.factor
@@ -3,11 +3,11 @@
 USING: accessors alien.c-types arrays classes.struct combinators
 combinators.short-circuit game.loop game.worlds gpu gpu.buffers
 gpu.framebuffers gpu.render gpu.shaders gpu.state gpu.textures
-gpu.util gpu.util.wasd grouping http.client images images.loader
-io io.encodings.ascii io.files io.files.temp kernel literals
-math.parser math.vectors math.vectors.simd method-chains
-namespaces sequences specialized-arrays specialized-vectors
-threads ui.gadgets.worlds ui.pixel-formats ;
+gpu.util gpu.util.wasd grouping http.client http.download images
+images.loader io io.encodings.ascii io.files io.files.temp
+kernel literals math.parser math.vectors math.vectors.simd
+method-chains namespaces sequences specialized-arrays
+specialized-vectors threads ui.gadgets.worlds ui.pixel-formats ;
 FROM: alien.c-types => float ;
 SPECIALIZED-ARRAY: float
 SPECIALIZED-VECTOR: uint
@@ -149,7 +149,7 @@ CONSTANT: bunny-model-url
 "https://downloads.factorcode.org/misc/bun_zipper.ply"
 
 : download-bunny ( -- path )
-    bunny-model-url bunny-model-path [ ?download-to ] keep ;
+    bunny-model-url bunny-model-path download-to ;
 
 : get-bunny-data ( bunny-state -- )
     download-bunny bunny-data