diff options
Diffstat (limited to 'guile/starlet/state.scm')
| -rw-r--r-- | guile/starlet/state.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm index a9aa6b4..82db18b 100644 --- a/guile/starlet/state.scm +++ b/guile/starlet/state.scm @@ -49,6 +49,7 @@ blackout! sel selection-hook + get-selection value->number atomically-overlay-state! update-state!)) @@ -355,6 +356,9 @@ pre-existing contents." (define selection '()) +(define (get-selection) + selection) + (define (sel . fixture-list) (if (nil? fixture-list) |