diff options
author | Thomas White <taw@physics.org> | 2020-06-17 22:03:20 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-06-17 22:03:20 +0200 |
commit | 4d8c8cc36e7b37e6a7d5345b74156020f3cc5801 (patch) | |
tree | d15f3e326aecea29db3acdba6bb6524069847fde | |
parent | 75089231d2ca44214660bdf9791ce8a1b3aa7c4c (diff) |
patch-fixture: Accept attributes as a lambda
This is better than copying the entire tree
-rw-r--r-- | guile/nanolight/fixture.scm | 5 |
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))) |