From 7c11aaa5fdb5898daa7667e36c63869c5facefc4 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Mon, 29 Mar 2021 17:33:02 +0200 Subject: at: Handle unspecified fixture when nothing is selected --- guile/starlet/base.scm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'guile') diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index a0958e3..3d052c1 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -551,18 +551,28 @@ pre-existing contents." (receive (fixtures attr-name value) (partition3 fixture? symbol? (flatten-sublists args)) (cond + ((nil? value) (error "at: Value not specified")) + ((or (more-than-one value) (more-than-one attr-name)) (error "at: Only one attribute or value name")) + ((and (nil? fixtures) (nil? attr-name)) - (set-fixtures selection '(intensity) value)) + (if (nil? selection) + 'no-fixtures-selected + (set-fixtures selection '(intensity) value))) + ((nil? attr-name) (set-fixtures fixtures '(intensity) value)) + ((nil? fixtures) - (set-fixtures selection attr-name value)) + (if (nil? selection) + 'no-fixtures-selected + (set-fixtures selection attr-name value))) + (else (set-fixtures fixtures attr-name value))))) -- cgit v1.2.3