-(define* (draw-bricks #:optional (bricks active-bricks))
- (cond ((not (null? bricks))
- ((car bricks))
- (draw-bricks (cdr bricks)))))
-
-(define-macro (show-brick brick-name)
- `(set! active-bricks (cons (lambda () (,brick-name)) active-bricks)))
-
-(define-macro (simple-brick brick-code)
- (let ((name (gensym)))
- `(begin
- (define (,name)
- ,brick-code)
- (show-brick ,name)
- ,name)))
+(define* (draw-views #:optional (views (hash-map->list (lambda (k v) v) active-views)))
+ (cond ((not (null? views))
+ (catch #t
+ (lambda* () ((car views)))
+ (lambda (key . args) #f))
+ (draw-views (cdr views)))))