-;;; Bricks Factory
-
-(define active-bricks '())
-
-(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)))
-
-
-;;; Primitive bricks
-
-(define-macro (draw-square . args)
- `(simple-brick (apply video:draw-square ',args)))
-
-(re-export video:draw-square)
-
-