diff options
Diffstat (limited to 'guile/nanolight/fixture.scm')
| -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))) |