Keywords better than optional

[guile-irrlicht.git] / irrlicht.scm

diff --git a/irrlicht.scm b/irrlicht.scm
index 1863e9ac19544022982aa073950028449471dad1..ce5547b5d07b4e7a77daa2be2617855ae8504690 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -51,7 +51,7 @@
             set-md2-animation!))
 
 ;; Device functions
-(define* (create-device #:optional
+(define* (create-device #:key
                         (device-type 'software)
                         (window-size '(640 480))
                         (bits 16)
@@ -94,7 +94,7 @@
 
 ;; Driver functions
 (define* (begin-scene driver
-                      #:optional
+                      #:key
                       (back-buffer #t)
                       (z-buffer #t)
                       (color '(255 0 0 0))
@@ -118,7 +118,7 @@
 
 ;; GUI functions
 (define* (add-static-text! gui-env text rectangle
-                           #:optional
+                           #:key
                            (border #f)
                            (word-wrap #t)
                            (parent %null-pointer)