aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-toplev.boot
diff options
context:
space:
mode:
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() ==