diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.sty')
| -rw-r--r-- | Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.sty | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.sty b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.sty index 95432a86ef3..7645135a88b 100644 --- a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.sty +++ b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.sty @@ -10,15 +10,16 @@ \addassoc\@globalenv\@let{\@tlabel@@let{}} \addassoc\@globalenv\@mlet{\@tlabel@@mlet{}} \addassoc\@globalenv\macroexpand{\@tlabel@macroexpand{}} - +\addassoc\@globalenv\callOCC{\@tlabel@callocc{}} \addassoc\@globalenv\car{\@tlabel@func{\@get@car}} \addassoc\@globalenv\cdr{\@tlabel@func{\@get@cdr}} \addassoc\@globalenv\cons{\@tlabel@func{\@make@cons}} \newcount\@temp@count -\addassoc\@globalenv\length{\@temp@count0\relax\@tlabel@func{\@lisp@length}} -\def\@lisp@length#1#2#3{% +\addassoc\@globalenv\length{\@tlabel@func{\@lisp@length}} +\def\@lisp@length{\@temp@count0\relax\@lisp@length@} +\def\@lisp@length@#1#2#3{% \ifx#2\@tlabel@nil \expandafter\gdef\expandafter#1% \expandafter{\expandafter\@tlabel@int\expandafter{\the\@temp@count}}% @@ -28,9 +29,9 @@ \let\@length@next\@@lisp@length \else \errmessage{LISP on TeX [function--length]: The Argument must be a LIST}% - \fi\fi\@length@next#3} + \fi\fi\@length@next#3#1} \def\@length@gobble#1{} -\def\@@lisp@length#1#2#3{\expandafter\@lisp@length#3} +\def\@@lisp@length#1#2#3{\expandafter\@lisp@length@\expandafter#3#2} %equality \addassoc\@globalenv\={\@tlabel@func{\@lisp@equal}} |