diff options
author | dos-reis <gdr@axiomatics.org> | 2009-02-10 00:13:01 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-02-10 00:13:01 +0000 |
commit | 16ccc3d066711098e15ee8e678b249e0b9379990 (patch) | |
tree | b75df077193e50fdfeb14ebd509c4a28ba8fa436 /src/interp/compat.boot | |
parent | eae3a083200c3d0d33851fac82cd9ef8a134d0c9 (diff) | |
download | open-axiom-16ccc3d066711098e15ee8e678b249e0b9379990.tar.gz |
* interp/i-spec2.boot (upDollar): Fix thinko.
* interp/compat.boot (editFile): Tidy.
* interp/br-op2.boot (modemap2Sig): Don't update $badStack.xo
Diffstat (limited to 'src/interp/compat.boot')
-rw-r--r-- | src/interp/compat.boot | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/interp/compat.boot b/src/interp/compat.boot index bdda2846..b5082786 100644 --- a/src/interp/compat.boot +++ b/src/interp/compat.boot @@ -57,9 +57,12 @@ system() == terminateSystemCommand() editFile file == - MEMQ(INTERN('"WIN32",FIND_-PACKAGE("KEYWORD")),_*FEATURES_*) => - runCommand STRCONC('"notepad ", namestring pathname file) - runCommand STRCONC('"$AXIOM/lib/SPADEDIT ",namestring pathname file) + editProg := + %hasFeature KEYWORD::WIN32 => '"notepad" + prog := getEnv '"EDITOR" => prog + # $EditorProgram ^= 0 => $EditorProgram + return nil -- FIXME: Should we not notify user? + runCommand STRCONC(editProg,'" ",namestring pathname file) makeBigFloat(mantissa,expon) == [$BFtag,mantissa,:expon] |