mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

remove unnecessary elisp subrs

Browse source 
* 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.
This commit is contained in:
BT Templeton 2011-06-17 00:18:23 -04:00
parent 16254e5a09
commit b0a9f1b4b4
2 changed files with 0 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

36
module/language/elisp/runtime/subrs.scm
View file

@ -225,42 +225,6 @@
(built-in-func reverse (@ (guile) reverse))
(built-in-func copy-tree (@ (guile) copy-tree))
(built-in-func number-sequence
(lambda (from . rest)
(if (prim > (prim length rest) 2)
(runtime-error "too many arguments for number-sequence"
(prim cdddr rest))
(if (null? rest)
`(,from)
(let ((to (prim car rest))
(sep (if (or (null? (prim cdr rest))
(eq? nil-value (prim cadr rest)))
1
(prim cadr rest))))
(cond
((or (eq? nil-value to) (prim = to from)) `(,from))
((and (zero? sep) (prim not (prim = from to)))
(runtime-error "infinite list in number-sequence"))
((prim < (prim * to sep) (prim * from sep)) '())
(else
(let iterate ((i (prim +
from
(prim *
sep
(prim quotient
(prim abs
(prim -
to
from))
(prim abs sep)))))
(result '()))
(if (prim = i from)
(prim cons i result)
(iterate (prim - i sep)
(prim cons i result)))))))))))
;;; Changing lists.
(built-in-func setcar

14
test-suite/tests/elisp-compiler.test
View file

@ -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)