save point.

diff --git a/ext/ml-json.cc b/ext/ml-json.cc
index f47cd67..4f663ef 100644 (file)
--- a/ext/ml-json.cc
+++ b/ext/ml-json.cc
@@ -110,9 +110,13 @@ static MNode*  picoj2texp (const picojson::value& v) {
  scalar_value → Atom
  array → (array value1 value2 ...)
  object → (map (key1 . value1) (key2 . value2) ...)
+*texp mode
+ scalar_value → Atom
+ array → VECTOR
+ object → TABLE
 
 */
-//#AFUNC       json-read       ml_json_read
+//#afunc       json-read       ml_json_read
 MNode*  ml_json_read (MNode* cell, MlEnv* mlenv) {
     MNode*  arg = cell->cdr ();
     ustring  text;