aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/ccwl.scm15
1 files changed, 0 insertions, 15 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index f3d5c36..07eaeae 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -464,21 +464,6 @@ represented by <step> objects."
key))
input-keys)
(list)))
- ;; ccwl functions with only a single input when only a single key
- ;; is available at this step and when no inputs are passed to it
- ((function (step-id))
- (and (function-object #'function)
- (= (length input-keys) 1)
- (= (length (function-input-keys
- (function-object #'function)))
- 1))
- (collect-steps #`(function (step-id)
- #,(match (function-input-keys
- (function-object #'function))
- ((command-key) (symbol->keyword command-key)))
- #,(match input-keys
- ((input-key) (key-name input-key))))
- input-keys))
((function (step-id) args ...)
;; Run a whole bunch of tests so that we can produce useful error
;; messages.