summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.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-prim.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-prim.sty')
-rw-r--r--Master/texmf-dist/tex/latex/lisp-on-tex/lisp-prim.sty11
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}}