factor: update download to return path and using lists

[factor.git] / extra / bunny / model / model.factor

diff --git a/extra/bunny/model/model.factor b/extra/bunny/model/model.factor
index f7724476a3c3a0cf11620b951f5861b414388eee..fb64d7193d2ee7b57ba1310bfd982b50acbd0e58 100644 (file)
--- a/extra/bunny/model/model.factor
+++ b/extra/bunny/model/model.factor
@@ -1,5 +1,5 @@
 USING: accessors alien.c-types alien.data arrays combinators
-destructors http.client io io.encodings.ascii io.files
+destructors http.download io io.encodings.ascii io.files
 io.files.temp kernel math math.parser math.vectors opengl
 opengl.capabilities opengl.demo-support opengl.gl sequences
 specialized-arrays splitting vectors ;
@@ -46,7 +46,7 @@ CONSTANT: model-url
 "https://downloads.factorcode.org/misc/bun_zipper.ply"
 
 : download-bunny ( -- path )
-    model-url model-path [ ?download-to ] keep ;
+    model-url model-path download-to ;
 
 :: (draw-triangle) ( ns vs triple -- )
     triple [| elt |