aboutsummaryrefslogtreecommitdiff
path: root/src/interp/compat.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-12-10 03:13:22 +0000
committerdos-reis <gdr@axiomatics.org>2010-12-10 03:13:22 +0000
commit7730f8fafe5dea4ab3ba8c4659a4d295689e1818 (patch)
treeed09862b3d0f5c13eacd1b8620444cf32bdf1fc2 /src/interp/compat.boot
parent36835d30a3255be49226ecc66c031bedaeafd8a5 (diff)
downloadopen-axiom-7730f8fafe5dea4ab3ba8c4659a4d295689e1818.tar.gz
cleanup
Diffstat (limited to 'src/interp/compat.boot')
-rw-r--r--src/interp/compat.boot5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/compat.boot b/src/interp/compat.boot
index c5a77c23..da938060 100644
--- a/src/interp/compat.boot
+++ b/src/interp/compat.boot
@@ -59,6 +59,11 @@ system() ==
editFile file ==
runCommand strconc(textEditor(),'" ",namestring pathname file)
+update() ==
+ runCommand
+ strconc(textEditor(), '" ",STRINGIMAGE _/VERSION,'" ",STRINGIMAGE _/WSNAME,'" A")
+ _/UPDATE()
+
makeBigFloat(mantissa,expon) ==
[$BFtag,mantissa,:expon]