From 9470b30951bc567fbe8d14fa0792bd01a86bfd64 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 7 Sep 2023 15:34:28 +0200
Subject: Remove accidental extra 'vcomponent control' module.

---
 module/vcomponent/control.scm      | 37 -------------------------------------
 module/vcomponent/util/control.scm |  2 +-
 2 files changed, 1 insertion(+), 38 deletions(-)
 delete mode 100644 module/vcomponent/control.scm

diff --git a/module/vcomponent/control.scm b/module/vcomponent/control.scm
deleted file mode 100644
index 19a6fa18..00000000
--- a/module/vcomponent/control.scm
+++ /dev/null
@@ -1,37 +0,0 @@
-(define-module (vcomponent util control)
-  :use-module (hnh util)
-  :use-module (vcomponent)
-  :export (with-replaced-properties))
-
-
-(eval-when (expand load)                ; No idea why I must have load here.
-  (define href (make-procedure-with-setter hash-ref hash-set!))
-
-  (define (set-temp-values! table component kvs)
-    (for-each (lambda (kv)
-                (let ((key (car kv))
-                      (val (cadr kv)))
-                  (when (prop component key)
-                    (set! (href table key) (prop component key))
-                    (set! (prop component key) val))))
-              kvs))
-
-  (define (restore-values! table component keys)
-    (for-each (lambda (key)
-                (and=> (href table key)
-                       (lambda (val)
-                         (set! (prop component key) val))))
-              keys)))
-
-;; TODO what is this even used for?
-(define-syntax with-replaced-properties
-  (syntax-rules ()
-    [(G_ (component (key val) ...)
-        body ...)
-
-     (let ((htable (make-hash-table 10)))
-       (dynamic-wind
-         (lambda () (set-temp-values! htable component (quote ((key val) ...))))  ; In guard
-         (lambda () body ...)
-         (lambda () (restore-values! htable component (quote (key ...))))))]))  ; Out guard
-
diff --git a/module/vcomponent/util/control.scm b/module/vcomponent/util/control.scm
index 0869543d..19a6fa18 100644
--- a/module/vcomponent/util/control.scm
+++ b/module/vcomponent/util/control.scm
@@ -26,7 +26,7 @@
 ;; TODO what is this even used for?
 (define-syntax with-replaced-properties
   (syntax-rules ()
-    [(_ (component (key val) ...)
+    [(G_ (component (key val) ...)
         body ...)
 
      (let ((htable (make-hash-table 10)))
-- 
cgit v1.2.3