summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-07-12 22:23:04 +0000
committerKarl Berry <karl@freefriends.org>2014-07-12 22:23:04 +0000
commit59222c9505c42ce998b7dbef0b08077a2b0adc3c (patch)
tree41c01393335cb0e89c00ee57913f01062bf70975 /Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty
parent19b2d7d90094fbc85b6282f6be53e4bb10f6ab70 (diff)
lisp-on-tex (12jul14)
git-svn-id: svn://tug.org/texlive/trunk@34578 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty')
-rw-r--r--Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty9
1 files changed, 2 insertions, 7 deletions
diff --git a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty
index f263d7059cb..337ef5f0435 100644
--- a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty
+++ b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty
@@ -12,12 +12,7 @@
(\lispif (\= () (\car \args)) ()
(\let ((\cars (\@inner@map \car \args)) (\cdrs (\@inner@map \cdr \args)))
(\cons (\apply \f \cars)
- (\apply \map (\cons \f \cdrs))
- )
- )
- )
- )
-)
+ (\apply \map (\cons \f \cdrs)))))))
%% @inner@map : ('a -> 'b) -> 'a list -> 'b list
(\define \@inner@map
(\lambda (\f \l)
@@ -35,7 +30,7 @@
(\lambda \l
(\lispif (\= () \l)
/f
- (\lispif (\car \l) /t (\apply \and (\cdr \l))))))
+ (\lispif (\car \l) /t (\apply \or (\cdr \l))))))
%% list
(\define \list (\lambda \x \x))
%% let bindings