Allow moving to a parent extent

ruricolist · Nov 6, 2024 · 6d74013 · 6d74013
1 parent 687dfec
commit 6d74013
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/defer.lisp b/defer.lisp
@@ -127,6 +127,14 @@ Returns the target extent."
               :on :exit
               :to extent)))))
 
+(defun move (guard)
+  (declare (extent-guard guard))
+  (match *guarded-extents*
+    ((list* extent parent-extent _)
+     (removef (extent-guards extent) guard)
+     (push guard (extent-guards parent-extent))
+     guard)
+    (otherwise guard)))
 
 (comment
   (lambda ()