diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-09-10 00:08:36 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-09-10 00:08:36 -0700 |
| commit | b23424f8d0b093b3438e9c6a2665a543decd7355 (patch) | |
| tree | 4cddca123726e7182aecdde254198fd0cd8128f8 /share | |
| parent | 7f471fde70ef66c3e9bcbe4d96885e9455722da1 (diff) | |
| download | txr-b23424f8d0b093b3438e9c6a2665a543decd7355.tar.gz txr-b23424f8d0b093b3438e9c6a2665a543decd7355.tar.bz2 txr-b23424f8d0b093b3438e9c6a2665a543decd7355.zip | |
tests: add tests for list-builder and fix bug.
* share/txr/stdlib/build.tl (list-buider pend*): Fix typo:
apply should be append. Funny, this didn't propagate to ncon*.
* tests/012/seq.tl: Some list-builder tests via build macro.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/build.tl | 2 |
1 files changed, 1 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) |