summaryrefslogtreecommitdiff
path: root/test-suite/tests/elisp-compiler.test
diff options
context:
space:
mode:
authorBT Templeton <bpt@hcoop.net>2011-06-17 00:18:23 -0400
committerBT Templeton <bpt@hcoop.net>2012-02-03 18:53:48 -0500
commitb0a9f1b4b45b644ba7617b3993ba2a7bf236f786 (patch)
treec332290113404c0f629fe139d75e05b774379407 /test-suite/tests/elisp-compiler.test
parent16254e5a09faeccd4681958d4500d69a975e0319 (diff)
downloadguile-b0a9f1b4b45b644ba7617b3993ba2a7bf236f786.tar.gz
remove unnecessary elisp subrs
* module/language/elisp/runtime/subrs.scm (copy-tree, number-sequence): Remove. (They are not subrs in Emacs.) * test-suite/tests/elisp-compiler.test ("List Built-ins")["copy-tree", "number-sequence"]: Remove.
Diffstat (limited to 'test-suite/tests/elisp-compiler.test')
-rw-r--r--test-suite/tests/elisp-compiler.test14
1 files changed, 0 insertions, 14 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index 869950389..24c336a20 100644
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -662,20 +662,6 @@
(pass-if "reverse"
(and (equal (reverse '(5 4 3 2 1)) '(1 2 3 4 5))
(equal (reverse '()) '())))
- (pass-if "copy-tree"
- (progn (setq mylist '(1 2 (3 4)))
- (and (not (eq mylist (copy-tree mylist)))
- (equal mylist (copy-tree mylist)))))
-
- (pass-if "number-sequence"
- (and (equal (number-sequence 5) '(5))
- (equal (number-sequence 5 9) '(5 6 7 8 9))
- (equal (number-sequence 5 9 3) '(5 8))
- (equal (number-sequence 5 1 -2) '(5 3 1))
- (equal (number-sequence 5 8 -1) '())
- (equal (number-sequence 5 1) '())
- (equal (number-sequence 5 5 0) '(5))))
-
(pass-if "setcar and setcdr"
(progn (setq pair '(1 . 2))
(setq copy pair)