lisp-on-tex (12jul14)

git-svn-id: svn://tug.org/texlive/trunk@34578 c570f23f-e606-0410-a88d-b1316a301751

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}}