gpu.demos.bunny: use while* instead of each-morsel

flac
Doug Coleman 2020-01-05 13:42:31 -06:00 committed by Steve Ayerhart
parent 10104b0d55
commit 90e0998861
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 1 additions and 1 deletions

View File

@ -104,7 +104,7 @@ UNIFORM-TUPLE: loading-uniforms
V{ } clone swap (read-line-tokens) ; V{ } clone swap (read-line-tokens) ;
: each-line-tokens ( quot -- ) : each-line-tokens ( quot -- )
input-stream get [ stream-read-line-tokens ] curry each-morsel ; inline [ input-stream get [ stream-read-line-tokens ] curry ] dip while* ; inline
: (parse-bunny-model) ( vs is -- vs is ) : (parse-bunny-model) ( vs is -- vs is )
[ [