===================================================================
RCS file: /home/cvs/OpenXM/doc/Papers/rims-2003-12-16-ja-ohp.tex,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- OpenXM/doc/Papers/rims-2003-12-16-ja-ohp.tex	2003/12/12 06:05:21	1.7
+++ OpenXM/doc/Papers/rims-2003-12-16-ja-ohp.tex	2003/12/12 06:07:02	1.8
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/doc/Papers/rims-2003-12-16-ja-ohp.tex,v 1.6 2003/12/12 01:54:05 noro Exp $
+% $OpenXM: OpenXM/doc/Papers/rims-2003-12-16-ja-ohp.tex,v 1.7 2003/12/12 06:05:21 noro Exp $
 %% xdvi -paper a4r rims-2003-12-16-ja-ohp
 %% dvips -f -t landscape  rims-2003-12-16-ja-ohp| psnup -8 -r | lpr -Pxerox6
 %% dvipdfm -l rims-2003-12-16-ja-ohp
@@ -570,6 +570,8 @@ $Data$ $B$,;XDj$5$l$?>l9g(B, $B%9%?%C%/$K%W%C%7%e$7
 def d_mul(F1,F2)
 {
     Procs = getopt(proc);
+    /* process $B;XDj$,$J$$>l9g$K$O(B, $B<+J,$G7W;;(B */
+    if ( type(Procs) == -1 ) return umul(F1,F2);
     if ( !var(F1) || !var(F2) ) return F1*F2;
     NP = length(Procs);
     /* $B0z?t$r(B server 0 $B$KAw$k(B */
@@ -611,4 +613,4 @@ def d_mul_main(Root)
 
 \end{document}
 
-%%$Id: rims-2003-12-16-ja-ohp.tex,v 1.7 2003/12/12 06:05:21 noro Exp $ at misc-2003/12/RIMS
+%%$Id: rims-2003-12-16-ja-ohp.tex,v 1.8 2003/12/12 06:07:02 noro Exp $ at misc-2003/12/RIMS