X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela%2Fwindow.scm;h=29e1662c8ec94c76ad6dc8ad62b902629a68fc10;hb=39f20a9681fa52e854678fe5acb5b10e3244c1cd;hp=eeed32d2beba1c6cc33a4adb928a7f48545f06b7;hpb=ee72c2bc37b7d06fbf90b27fa8e45e6f2d4e27bc;p=gacela.git

diff --git a/gacela/window.scm b/gacela/window.scm
index eeed32d..29e1662 100644
--- a/gacela/window.scm
+++ b/gacela/window.scm
@@ -1,5 +1,5 @@
 ;;; Gacela, a GNU Guile extension for fast games development
-;;; Copyright (C) 2016 by Javier Sancho Fernandez <jsf at jsancho dot org>
+;;; Copyright (C) 2017 by Javier Sancho Fernandez <jsf at jsancho dot org>
 ;;;
 ;;; This program is free software: you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -20,8 +20,13 @@
   #:export (window))
 
 
-(define* (window window-properties #:optional scene)
-  (make-scene
-   "window"
-   (lambda ()
-     (apply run-scene (cons scene window-properties)))))
+(define-syntax window
+  (lambda (x)
+    (syntax-case x ()
+      ((_ ((property-name property-value) ...) scene)
+       #'(make-scene
+	  "window"
+	  (lambda ()
+	    (apply run-scene (cons scene
+				   (append (list (symbol->keyword 'property-name) property-value)
+					   ...)))))))))