diff options
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 |