Introducing FRP concepts

diff --git a/src/gacela.scm b/src/gacela.scm
index 7e96a808700204c15003647a28c6a434b9fe196d..2b9a19ed975e43a2053c49ee78885552b3e19bc3 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -348,8 +348,8 @@
         ((car bricks))
         (draw-bricks (cdr bricks)))))
 
-(define (show-brick brick)
-  (set! active-bricks (cons brick active-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)))
@@ -362,8 +362,10 @@
 
 ;;; Primitive bricks
 
-(define (draw-square . args)
-  (simple-brick (apply video:draw-square args)))
+(define-macro (draw-square . args)
+  `(simple-brick (apply video:draw-square ',args)))
+
+(re-export video:draw-square)
 
 
 (module-map (lambda (sym var)