diff options
author | Thomas White <taw@physics.org> | 2020-06-16 23:19:37 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-06-16 23:19:37 +0200 |
commit | 8806c67018cc7190887845f2a4456f5220d4647d (patch) | |
tree | f69349ddfe5a0648f06815016194e822e374f07b /guile/nanolight/state.scm | |
parent | dfcf44a02eb1a9759e1d29cd2a33a1f58d122de4 (diff) |
Formatting
Diffstat (limited to 'guile/nanolight/state.scm')
-rw-r--r-- | guile/nanolight/state.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/guile/nanolight/state.scm b/guile/nanolight/state.scm index f6f0193..87c5af0 100644 --- a/guile/nanolight/state.scm +++ b/guile/nanolight/state.scm @@ -60,9 +60,8 @@ ; which returns the highest value from the two inputs ; Otherwise, revert to LTP (define (merge-rule-htp a b) - (let ( - (funca (value-func a)) - (funcb (value-func b))) + (let ((funca (value-func a)) + (funcb (value-func b))) (if (eq? (attribute a) 'intensity) (lambda () (max (funca) (funcb))) funcb))) @@ -103,10 +102,9 @@ (define (exec-state! state) (for-each (lambda (a) - (assign-attr! - (fixture a) - (attribute a) - (value-func a))) + (assign-attr! (fixture a) + (attribute a) + (value-func a))) state)) |