diff options
Diffstat (limited to 'guile/nanolight/fixture.scm')
| -rw-r--r-- | guile/nanolight/fixture.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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 |