diff options
-rw-r--r-- | guile/starlet/selection.scm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/guile/starlet/selection.scm b/guile/starlet/selection.scm index 7e5ca1a..2798fc1 100644 --- a/guile/starlet/selection.scm +++ b/guile/starlet/selection.scm @@ -41,12 +41,20 @@ selection) +(define (dotted-fixture-name s) + (with-output-to-string + (lambda () + (format #t "~a.~a" (second s) (third s))))) + + (define (get-selection-as-string) (cat-with-spaces (map (lambda (s) - (symbol->string - (get-fixture-name s))) + (let ((name (get-fixture-name s))) + (if (symbol? name) + (symbol->string name) + (dotted-fixture-name name)))) selection))) |