picolisp

commit 9897d96a0c98c3e88884ecc66c8f1b1b5cfca7c6
parent cc29c81d6f7e0a279f5925b477cd7397e4eaa33e
Author: Commit-Bot <unknown>
Date:   Tue, 22 Jun 2010 06:00:38 +0000

Automatic commit from picoLisp.tgz, From: Tue, 22 Jun 2010 06:00:38 GMT
Diffstat:
M
doc/refM.html
 | 
2
+-
M
src/flow.c
 | 
4
++--
M
src64/flow.l
 | 
4
++--

3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/doc/refM.html b/doc/refM.html
@@ -427,7 +427,7 @@ arguments.
 -> 123
 </code></pre>
 
-<dt><a name="meth"><code>(meth 'obj ..) -> any</code></a>
+<dt><a name="meth"><code>(meth 'obj ['any ..]) -> any</code></a>
 <dd>This function is usually not called directly, but is used by <code> <a
 href="refD.html#dm">dm</a></code> as a template to initialize the
 <code>VAL</code> of message symbols. It searches for itself in the methods of
diff --git a/src/flow.c b/src/flow.c
@@ -1,4 +1,4 @@
-/* 04jun10abu
+/* 22jun10abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -516,7 +516,7 @@ any doMethod(any ex) {
    return method(x)? : Nil;
 }
 
-// (meth 'obj ..) -> any
+// (meth 'obj ['any ..]) -> any
 any doMeth(any ex) {
    any x, y;
    cell c1;
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 13jun10abu
+# 22jun10abu
 # (c) Software Lab. Alexander Burger
 
 (code 'redefMsgEC)
@@ -1102,7 +1102,7 @@
    pop X
    ret
 
-# (meth 'obj ..) -> any
+# (meth 'obj ['any ..]) -> any
 (code 'doMeth 2)
    push X
    push Y