diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-14 01:59:56 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-14 01:59:56 +0000 |
commit | 663089e7f95f4901a46939ef34c60982dd5aadda (patch) | |
tree | 591d333d98a1eaf5b3c22d57e75ece8c56f9619b /src/interp/pspad1.boot | |
parent | c5659a8580de5b531891c6703465c84add9fbb1b (diff) | |
download | open-axiom-663089e7f95f4901a46939ef34c60982dd5aadda.tar.gz |
Various cleanups.
Diffstat (limited to 'src/interp/pspad1.boot')
-rw-r--r-- | src/interp/pspad1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot index 889d3e73..f97b4396 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -587,7 +587,7 @@ formatDEF0(["DEF",form,tlist,sclist,body],$DEFdepth) == form is [":",a,:.] => a form con := opOf $form - $comments: local := SUBST('_$,'_%,GETDATABASE(con,'DOCUMENTATION)) + $comments: local := SUBST('_$,'_%,getConstructorDocumentationFromDB con) $abb :local := constructor? opOf $form if $DEFdepth < 2 then condoc := (u := LASSOC('constructor,$comments)) and KDR KAR u or ['""] |