From 75089231d2ca44214660bdf9791ce8a1b3aa7c4c Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Tue, 16 Jun 2020 23:19:49 +0200
Subject: Keywordify patch-fixture

---
 guile/nanolight/fixture.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guile/nanolight/fixture.scm b/guile/nanolight/fixture.scm
index 94c3cac..d3b819f 100644
--- a/guile/nanolight/fixture.scm
+++ b/guile/nanolight/fixture.scm
@@ -133,7 +133,10 @@
 
 (define output #f)
 
-(define (patch-fixture fixture-name attributes universe start-addr friendly-name)
+(define* (patch-fixture fixture-name
+                        attributes
+                        start-addr
+                        #:key (universe 1) (friendly-name "Fixture"))
   (let ((new-fixture (make <fixture>
                        #:attributes (copy-tree attributes)
                        #:uni universe
-- 
cgit v1.2.3