X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=70ac867c2b995108b5ed2a188f043d173c6c84dd;hb=7e57983e35b2504e554dd9266704ec707f62c331;hp=06986b8321737198920e44786781e5faeac358ad;hpb=9c14da6c19a2e29a1db346df5c746bfcd2680afb;p=gacela.git diff --git a/src/gacela.scm b/src/gacela.scm index 06986b8..70ac867 100644 --- a/src/gacela.scm +++ b/src/gacela.scm @@ -345,7 +345,7 @@ (define* (draw-meshes #:optional (meshes (hash-map->list (lambda (k v) v) default-view))) (cond ((not (null? meshes)) (catch #t - (lambda () (glmatrix-block ((car meshes)))) + (lambda () ((car meshes) 'draw)) (lambda (key . args) #f)) (draw-meshes (cdr meshes)))))