314 |
(pass-if (not (length+ (circular-list 1 2 3))))) |
(pass-if (not (length+ (circular-list 1 2 3))))) |
315 |
|
|
316 |
;; |
;; |
317 |
|
;; list-copy |
318 |
|
;; |
319 |
|
|
320 |
|
(with-test-prefix "list-copy" |
321 |
|
|
322 |
|
;; improper lists can be copied |
323 |
|
(pass-if (equal? '() (list-copy '()))) |
324 |
|
(pass-if (equal? '(1 2) (list-copy '(1 2)))) |
325 |
|
(pass-if (equal? '(1 2 3) (list-copy '(1 2 3)))) |
326 |
|
(pass-if (equal? '(1 2 3 4) (list-copy '(1 2 3 4)))) |
327 |
|
(pass-if (equal? '(1 2 3 4 5) (list-copy '(1 2 3 4 5)))) |
328 |
|
|
329 |
|
;; improper lists can be copied |
330 |
|
(pass-if (equal? 1 (list-copy 1))) |
331 |
|
(pass-if (equal? '(1 . 2) (list-copy '(1 . 2)))) |
332 |
|
(pass-if (equal? '(1 2 . 3) (list-copy '(1 2 . 3)))) |
333 |
|
(pass-if (equal? '(1 2 3 . 4) (list-copy '(1 2 3 . 4)))) |
334 |
|
(pass-if (equal? '(1 2 3 4 . 5) (list-copy '(1 2 3 4 . 5))))) |
335 |
|
|
336 |
|
;; |
337 |
;; take |
;; take |
338 |
;; |
;; |
339 |
|
|