summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2020-06-17 22:03:20 +0200
committerThomas White <taw@physics.org>2020-06-17 22:03:20 +0200
commit4d8c8cc36e7b37e6a7d5345b74156020f3cc5801 (patch)
treed15f3e326aecea29db3acdba6bb6524069847fde
parent75089231d2ca44214660bdf9791ce8a1b3aa7c4c (diff)
patch-fixture: Accept attributes as a lambda
This is better than copying the entire tree
-rw-r--r--guile/nanolight/fixture.scm5
1 files 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)))