diff options
| -rw-r--r-- | catbird/scene.scm | 7 | ||||
| -rw-r--r-- | tests/scene.scm | 13 |
2 files changed, 0 insertions, 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" |