diff options
| author | Thomas White <taw@physics.org> | 2020-06-16 23:19:49 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-06-16 23:19:49 +0200 |
| commit | 75089231d2ca44214660bdf9791ce8a1b3aa7c4c (patch) | |
| tree | 0fdc749b2404bcdb9a62b5ae09ed6a1384d7ec74 | |
| parent | 8806c67018cc7190887845f2a4456f5220d4647d (diff) | |
Keywordify patch-fixture
| -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 |