diff options
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)) |