From 8806c67018cc7190887845f2a4456f5220d4647d Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 16 Jun 2020 23:19:37 +0200 Subject: Formatting --- guile/nanolight/state.scm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'guile/nanolight/state.scm') 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)) -- cgit v1.2.3