stderr function.

fix a document.

diff --git a/modules/ml-debug.cc b/modules/ml-debug.cc
index c2c9bd7..37563eb 100644 (file)
--- a/modules/ml-debug.cc
+++ b/modules/ml-debug.cc
@@ -116,3 +116,24 @@ MNode*  ml_sleep (MNode* cell, MlEnv* mlenv) {
     return NULL;
 }
 #endif
+
+/*DOC:
+===stderr===
+ (stderr TEXT...) -> NIL
+
+*/
+//#AFUNC       stderr  ml_stderr
+MNode*  ml_stderr (MNode* cell, MlEnv* mlenv) {
+    MNode*  arg = cell->cdr ();
+    ustring  text;
+
+    while (arg) {
+       text.append (eval_str (arg->car (), mlenv));
+       nextNode (arg);
+    }
+    if (text.length () > 0 && text[text.length () - 1] != '\n')
+       text.append (uLF);
+    std::cerr << text;
+
+    return NULL;
+}

diff --git a/modules/ml-debug.h b/modules/ml-debug.h
index dc3d400..d64770a 100644 (file)
--- a/modules/ml-debug.h
+++ b/modules/ml-debug.h
@@ -10,5 +10,6 @@ MNode*  ml_no_debug_function (MNode* cell, MlEnv* mlenv);
 #ifdef DEBUG
 MNode*  ml_sleep (MNode* cell, MlEnv* mlenv);
 #endif
+MNode*  ml_stderr (MNode* cell, MlEnv* mlenv);
 
 #endif /* ML_DEBUG_H */

diff --git a/modules/ml-store.cc b/modules/ml-store.cc
index 7dc2ad2..2ae7107 100644 (file)
--- a/modules/ml-store.cc
+++ b/modules/ml-store.cc
@@ -1116,8 +1116,8 @@ MNode*  ml_response_motor (MNode* cell, MlEnv* mlenv) {
 }
 /*DOC:
 ===response-file===
- (response-file FILENAME [#serial | #named | #static] [:type MIME_TYPE] [#inline] [:name NAME] [#base64]) -> NIL
- (response-file [:source-serial FILENAME | :source-named FILENAME | :source-static FILENAME] [:type MIME_TYPE] [#inline] [:name NAME] [#base64]) -> NIL
+ (response-file FILENAME [#serial | #named | #static] [#continue] [:type MIME_TYPE] [#inline] [:name NAME] [#base64]) -> NIL
+ (response-file [:source-serial FILENAME | :source-named FILENAME | :source-static FILENAME] [:type MIME_TYPE] [#continue] [#inline] [:name NAME] [#base64]) -> NIL
 
 */
 //#AFUNC       response-file   ml_response_file