summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-util.sty
diff options
context:
space:
mode:
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