From 420ee870c14f26747103ced6a0f0a7481b802b86 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 13 May 2023 21:12:20 -0400
Subject: Remove $ syntax.

Conflicts with goblins.
---
 catbird/scene.scm |  7 -------
 tests/scene.scm   | 13 -------------
 2 files changed, 20 deletions(-)

diff --git a/catbird/scene.scm b/catbird/scene.scm
index 69a0b1d..5f29d6a 100644
--- a/catbird/scene.scm
+++ b/catbird/scene.scm
@@ -37,7 +37,6 @@
             with-scene
             add-to-scene
             scene-script
-            $
             regions
             major-mode
             minor-modes
@@ -59,12 +58,6 @@
 (define-syntax-rule (with-scene scene body ...)
   (parameterize ((current-scene scene)) body ...))
 
-(define-syntax $
-  (syntax-rules ()
-    ((_) (current-scene))
-    ((_ names ...)
-     (& (current-scene) names ...))))
-
 (define-method (add-to-scene . nodes)
   (apply attach-to (current-scene) nodes))
 
diff --git a/tests/scene.scm b/tests/scene.scm
index 533c738..af340cc 100644
--- a/tests/scene.scm
+++ b/tests/scene.scm
@@ -9,19 +9,6 @@
 (define-class <test-mode> (<major-mode>))
 
 (with-tests "scene"
-  (test-group "$"
-    (let ((scene (make <scene>)))
-      (test-eq "no arguments"
-        (with-scene scene
-          ($))
-        scene))
-    (let ((scene (make <scene>))
-          (node (make <node> #:name 'foo)))
-      (test-eq "one argument"
-        (with-scene scene
-          (attach-to scene node)
-          ($ foo))
-        node)))
   (let ((scene (make <scene>))
         (node (make <node> #:name 'foo)))
     (test-eq "add-to-scene"
-- 
cgit v1.2.3