yamasushi

!! Index - モジュール索引 : compat.norational --> compat.norational - 有理数のない算術演算 --> X
!! Index - モジュール索引 : dbi --> dbi - データベース非依存アクセス層 --> X
!! Index - モジュール索引 : gauche.dictionary --> gauche.dictionary - ディクショナリフレームワーク --> X
!! Index - モジュール索引 : text.progress --> text.progress - テキスト端末上でプログレスを表示する --> X
!! Index - モジュール索引 : text.sql --> text.sql - SQLのパーズと構築 --> X
!! Index - モジュール索引 : util.relation --> util.relation - リレーションフレームワーク --> X
!! Index - モジュール索引 : util.sparse --> util.sparse - 疎なデータコンテナ --> X
!! Index - モジュール索引 : util.trie --> util.trie - Trie --> X
!! Index - 手続きと構文索引 : <sql-parse-error> --> text.sql - SQLのパーズと構築 --> X
!! Index - 手続きと構文索引 : make-text-progress-bar --> text.progress - テキスト端末上でプログレスを表示する --> X

yamasushi

texiファイルにdeftp定義があるときにはclindexをつけるようにした後でチェック。

!! (control.job) クラス job に索引がない
!! (control.thread-pool) クラス <thread-pool-shut-down> に索引がない
!! (dbi) クラス <dbi-error> に索引がない
!! (dbi) クラス <dbi-nonexistent-driver-error> に索引がない
!! (dbi) クラス <dbi-parameter-error> に索引がない
!! (dbi) クラス <dbi-result-set> に索引がない
!! (dbi) クラス <dbi-unsupported-error> に索引がない
!! (file.util) クラス <lock-file-failure> に索引がない

yamasushi

diff --git a/doc/corelib.texi b/doc/corelib.texi
index b069a4e..5905ca5 100644
--- a/doc/corelib.texi
+++ b/doc/corelib.texi
@@ -19199,6 +19199,7 @@ to the POSIX-time (number of seconds since Epoch).
 @subsubheading SRFI time
 
 @deftp {Builtin Class} <time>
+@clindex time
 @c EN

yamasushi

diff --git a/lib/util/trie.scm b/lib/util/trie.scm
index f0ad54a..b8ed6a8 100644
--- a/lib/util/trie.scm
+++ b/lib/util/trie.scm
@@ -39,6 +39,7 @@
 (define-module util.trie
   (use srfi-1)
   (use gauche.sequence)
+  (use gauche.dictionary)
   (use util.list)

yamasushi

diff --git a/lib/gauche/dictionary.scm b/lib/gauche/dictionary.scm
index 3e52116..62c2023 100644
--- a/lib/gauche/dictionary.scm
+++ b/lib/gauche/dictionary.scm
@@ -38,6 +38,9 @@
           dict-fold dict-fold-right
           dict-for-each dict-map
           dict-keys dict-values
+          ;
+          dict->alist dict-pop! dict-push! dict-update!

yamasushi

diff --git a/ext/sparse/sparse.scm b/ext/sparse/sparse.scm
index 0ea6ec0..20a6727 100644
--- a/ext/sparse/sparse.scm
+++ b/ext/sparse/sparse.scm
@@ -271,7 +271,7 @@
 
 ;;===============================================================
 ;; dictionary protocol
-;;
+;; <sparse-table>

yamasushi

diff --git a/ext/sparse/sparse.scm b/ext/sparse/sparse.scm
index 0ea6ec0..20a6727 100644
--- a/ext/sparse/sparse.scm
+++ b/ext/sparse/sparse.scm
@@ -271,7 +271,7 @@
 
 ;;===============================================================
 ;; dictionary protocol
-;;
+;; <sparse-table>

yamasushi

;; replからではなく、直接repl-printを使ったときに起きる。

;; Shiro Kawai's xrepl.pp (pp.scm line 70 ~ 86)
;; SourceForge.net Repository - [gauche] Contents of /Gauche-scripts/trunk/xrepl/xrepl/pp.scm
;; http://gauche.svn.sourceforge.net/viewvc/gauche/Gauche-scripts/trunk/xrepl/xrepl/pp.scm?revision=7388&view=markup

;; scan obj to find out shared structure and mark it in rp-dict.
(define (scan-shared obj level len)
  #?=(rp-dict) ; <--- ok
  (cond [(hash-table-get #?=(rp-dict) obj #f) ; <---- ok

yamasushi

>gosh /home/shuji/gauche/debug/test.scm    
#?="/home/shuji/gauche/debug/test2.scm":23:(rp-dict)
#?-    #<hash-table eq? 0x99230f0>
#?="/home/shuji/gauche/debug/test2.scm":11:(rp-dict)
#?-    #<hash-table eq? 0x99230f0>
(1)#?="/home/shuji/gauche/debug/test2.scm":13:(rp-dict)
#?-    #f
*** ERROR: (rp-dict) is false
Stack Trace:
_______________________________________

yamasushi

gosh> (load "test")
#?="./test.scm":19:(rp-dict)
#?-    "hoge"
(1)#?="./test.scm":21:(rp-dict)
#?-    #f
#t