diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-20 06:55:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-20 06:55:58 +0000 |
| commit | 107ad31254bf3de30516ce0f2563892bacf9cb60 (patch) | |
| tree | 77862fdbee4770ccfb3dbffe035e3cc2f4cd72de /src/interp/compat.boot | |
| parent | fe63e89c9e18017cddee98f0c6ceb2783c930e86 (diff) | |
| download | open-axiom-107ad31254bf3de30516ce0f2563892bacf9cb60.tar.gz | |
* interp/br-con.boot: Use textEditor() to get editor program.
* interp/br-saturn.boot: Likewise.
* interp/compat.boot: Likewise.
* interp/i-util.boot (textEditor): Define here.
* interp/g-util.boot: Likewise.
Diffstat (limited to 'src/interp/compat.boot')
| -rw-r--r-- | src/interp/compat.boot | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/interp/compat.boot b/src/interp/compat.boot index b5082786..c5a77c23 100644 --- a/src/interp/compat.boot +++ b/src/interp/compat.boot @@ -57,12 +57,7 @@ system() == terminateSystemCommand() editFile 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) + runCommand strconc(textEditor(),'" ",namestring pathname file) makeBigFloat(mantissa,expon) == [$BFtag,mantissa,:expon] |