From 4d8c8cc36e7b37e6a7d5345b74156020f3cc5801 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Wed, 17 Jun 2020 22:03:20 +0200
Subject: patch-fixture: Accept attributes as a lambda

This is better than copying the entire tree
---
 guile/nanolight/fixture.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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