diff options
author | BT Templeton <bpt@hcoop.net> | 2011-06-17 00:18:23 -0400 |
---|---|---|
committer | BT Templeton <bpt@hcoop.net> | 2012-02-03 18:53:48 -0500 |
commit | b0a9f1b4b45b644ba7617b3993ba2a7bf236f786 (patch) | |
tree | c332290113404c0f629fe139d75e05b774379407 /test-suite/tests/elisp-compiler.test | |
parent | 16254e5a09faeccd4681958d4500d69a975e0319 (diff) | |
download | guile-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.test | 14 |
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) |