diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-23 22:44:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-23 22:44:32 +0000 |
| commit | 695a6c656681918abe4b20e04470dd266b4f6bbe (patch) | |
| tree | e5efcaefebf2d89118a8a00a9e11ba5547826fe3 /src/interp/i-syscmd.boot | |
| parent | c3b3651a804ebbdf40b3b59490d62ac63e3bf233 (diff) | |
| download | open-axiom-695a6c656681918abe4b20e04470dd266b4f6bbe.tar.gz | |
* boot/ast.boot: Tidy.
* boot/includer.boot: Likewise.
* boot/parser.boot: Likewise.
* boot/pile.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/tokens.boot: Likewise.
* boot/translator.boot: Likewise.
* boot/strap: Update Lisp translation.
* lisp/core.lisp.in: Tidy.
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 47f03680..b3f2433f 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -32,7 +32,7 @@ -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -import '"i-object" +import i_-object )package "BOOT" --% Utility Variable Initializations @@ -2339,7 +2339,7 @@ reportOpsFromUnitDirectly unitForm == sayBrightly concat('%b,formatOpType unitForm, '%d,'"is a",'%b,kind,'%d, '"constructor.") if not isRecordOrUnion then - abb := getConstructorAbbreviatiomFronDB top + abb := getConstructorAbbreviationFromDB top sourceFile := getConstructorSourceFileFromDB top sayBrightly ['" Abbreviation for",:bright top,'"is",:bright abb] verb := @@ -2748,7 +2748,7 @@ filterAndFormatConstructors(constrType,label,patterns) == whatConstructors constrType == -- here constrType should be one of 'category, 'domain, 'package - MSORT [CONS(getConstructorAbbreviatiomFronDB con, STRING(con)) + MSORT [CONS(getConstructorAbbreviationFromDB con, STRING(con)) for con in allConstructors() | getConstructorKindFromDB con = constrType] |