===================================================================
RCS file: /home/cvs/OpenXM/src/asir-doc/parts/builtin/function.texi,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM/src/asir-doc/parts/builtin/function.texi	1999/12/21 02:47:33	1.2
+++ OpenXM/src/asir-doc/parts/builtin/function.texi	2003/04/20 08:01:28	1.4
@@ -1,4 +1,4 @@
-@comment $OpenXM$
+@comment $OpenXM: OpenXM/src/asir-doc/parts/builtin/function.texi,v 1.3 2002/09/03 01:50:59 noro Exp $
 \BJP
 @node $BH!?t$KBP$9$kA`:n(B,,, $BAH$_9~$_H!?t(B
 @section $BH!?t$KBP$9$kA`:n(B
@@ -52,7 +52,7 @@ x $B$r0z?t$H$9$kH!?t8F$S=P$7$^$?$OH!?t7A<0$,F~NO$G$-$
 \E
 \BEG
 @item
-@xref{vtype} for function form.
+See @ref{vtype} for function form.
 @item
 Extract the functor and  the arguments of function form @var{func}.
 @item
@@ -70,7 +70,8 @@ sin
 [x]
 [0] funargs(sin(3*cos(y)));
 [sin,3*cos(y)]
-[1] for (L=[sin,cos,tan];L!=[];L=cdr(L)) @{A=car(L); print(eval((*A)(@@pi/3)));@}
+[1] for (L=[sin,cos,tan];L!=[];L=cdr(L)) @{A=car(L); 
+print(eval((*A)(@@pi/3)));@}
 0.86602540349122136831
 0.5000000002
 1.7320508058