aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-toplev.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-02-10 04:48:39 +0000
committerdos-reis <gdr@axiomatics.org>2008-02-10 04:48:39 +0000
commit6b365f926f1f0430c34498392e1dddbff126bc48 (patch)
treebdbc548cea2b0968863d9695bbdfc1732b16c3c5 /src/interp/i-toplev.boot
parent06e82157a75ebb6f14dae6a76a9e3a2b883b2c7a (diff)
downloadopen-axiom-6b365f926f1f0430c34498392e1dddbff126bc48.tar.gz
Add support for batch processing.
Diffstat (limited to 'src/interp/i-toplev.boot')
-rw-r--r--src/interp/i-toplev.boot8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot
index 27b0cc47..dd8332b5 100644
--- a/src/interp/i-toplev.boot
+++ b/src/interp/i-toplev.boot
@@ -57,6 +57,14 @@ $QuietCommand := NIL
$ProcessInteractiveValue := NIL
$HTCompanionWindowID := NIL
+++ initialize the garbage collection timer
+statisticsInitialization() ==
+)if %hasFeature KEYWORD::GCL
+ SYSTEM::GBC_-TIME 0
+)else
+ nil
+)endif
+
--% Starting the interpreter from LISP
spadpo() ==