diff options
| -rw-r--r-- | share/txr/stdlib/build.tl | 2 | ||||
| -rw-r--r-- | tests/012/seq.tl | 10 |
2 files changed, 11 insertions, 1 deletions
diff --git a/share/txr/stdlib/build.tl b/share/txr/stdlib/build.tl index 2c9f97ca..c607571f 100644 --- a/share/txr/stdlib/build.tl +++ b/share/txr/stdlib/build.tl @@ -60,7 +60,7 @@ (:method pend* (self . lists) (let* ((h self.head) - (pf [apply apply (append lists (list (cdr h)))])) + (pf [apply append (append lists (list (cdr h)))])) (usr:rplacd h pf) (set self.tail self.head)) nil) diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 66361cfb..9c3821d1 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -7,3 +7,13 @@ (test (append '(1) 2) (1 . 2)) (test (append '(1 . 2) 2) :error) (test (append '(1 . #(3 4 5)) "d") (1 . #(3 4 5 #\d))) + +(test (build (add 1) (add 2) (pend (get))) (1 2 1 2)) +(test (build (add 1) (add 2) (pend* (get))) (1 2 1 2)) +(test (build (add 1) (add 2) (pend (get) (get))) (1 2 1 2 1 2)) +(test (build (add 1) (add 2) (pend* (get) (get))) (1 2 1 2 1 2)) + +(set *print-circle* t) + +(stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)") +(stest (build (add 1) (add 2) (ncon* (get))) "#1=(1 2 . #1#)") |