diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-30 15:58:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-30 15:58:10 +0000 |
| commit | ce064a60f567c2938290d02f2de56abbeff17b57 (patch) | |
| tree | ff2e4ea72230bf3bee19ff32a83fe2a06a00f0af /src/interp/c-doc.boot | |
| parent | fcc96dd42a7374ad2fb44b16fa7198df4aeec8b8 (diff) | |
| download | open-axiom-ce064a60f567c2938290d02f2de56abbeff17b57.tar.gz | |
Add DB parameter to ducmentation functions.
Diffstat (limited to 'src/interp/c-doc.boot')
| -rw-r--r-- | src/interp/c-doc.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index dc4868db..5c87a1ed 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -136,7 +136,8 @@ collectAndDeleteAssoc x == y.rest := s res -finalizeDocumentation ctor == +finalizeDocumentation db == + ctor := dbConstructor db unusedCommentLineNumbers := [x for (x := [n,:r]) in $COMBLOCKLIST | r] docList := substitute("$","%",transDocList($op,$docList)) if u := [sig for [sig,:doc] in docList | null doc] then @@ -178,7 +179,7 @@ finalizeDocumentation ctor == sayKeyedMsg("S2CD0006",[strconc(toString bigcnt,'"."),ctor]) for [n,r] in unusedCommentLineNumbers repeat sayMSG ['" ",:bright n,'" ",r] - form := dbConstructorForm constructorDB ctor + form := dbConstructorForm db hn [[:fn(sig,$e,form.args),:doc] for [sig,:doc] in docList] where fn(x,e,args) == x isnt [.,:.] => [x,nil] |