diff options
author | Karl Berry <karl@freefriends.org> | 2014-07-12 22:23:04 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-07-12 22:23:04 +0000 |
commit | 59222c9505c42ce998b7dbef0b08077a2b0adc3c (patch) | |
tree | 41c01393335cb0e89c00ee57913f01062bf70975 /Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty | |
parent | 19b2d7d90094fbc85b6282f6be53e4bb10f6ab70 (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.sty | 9 |
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 |