aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guile/starlet/state.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index 654b7e8..b5b26cd 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -61,7 +61,8 @@
add-update-hook!
state-empty?
remove-fixtures-from-state!
- remove-fixture-from-state!))
+ remove-fixture-from-state!
+ remove-selection-from-programmer!))
;; A "state" is an atomically-updating container for an immutable
@@ -477,3 +478,9 @@ pre-existing contents."
(define (remove-fixture-from-state! st fix)
(remove-fixtures-from-state! st (list fix)))
+
+
+(define (remove-selection-from-programmer!)
+ (remove-fixtures-from-state!
+ programmer-state
+ (get-selection)))