diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-16 02:07:12 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-16 02:07:12 +0000 |
commit | 40777fd4db18e8656ae53dd4df9112b42df329db (patch) | |
tree | 662f7d7c54141bdbf755b492aee0a215e6f6441c /src/interp/sys-driver.boot | |
parent | 8c851d2dca0a8d98953b7a2fa4c6d642c98fc11f (diff) | |
download | open-axiom-40777fd4db18e8656ae53dd4df9112b42df329db.tar.gz |
* lisp/core.lisp.in (|%basicSystemIsComplete|): New. Export.
(|link|): Use prologue for all systems.
* interp/sys-driver.boot (systemMain): New. Break from restart().
(restart): Tidy.
* interp/boot-pkg.lisp: Don't push :OPEN-AXIOM-BOOT-COMPLETE.
Diffstat (limited to 'src/interp/sys-driver.boot')
-rw-r--r-- | src/interp/sys-driver.boot | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index f620ea09..e64c42d7 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -1,5 +1,7 @@ -- Copyright (C) 2007-2008 Gabriel Dos Reis -- All rights reserved. +-- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without -- modification, are permitted provided that the following conditions are @@ -149,13 +151,6 @@ RESTART0() == ++ restart() == - IN_-PACKAGE '"BOOT" -- ??? is this still necessary? - -- ??? Ideally, we should not be calling AxiomCore::topLevel. - -- ??? Rather, we should be called by that function. Therefore - -- ??? it currently serves only for option processing and we cannot - -- ??? do any substantial work if we call from it. - AxiomCore::topLevel() - REROOT() )if %hasFeature KEYWORD::GCL SYSTEM::GBC_-TIME 0 )endif @@ -234,3 +229,17 @@ buildDatabasesHandler(prog,options,args) == coreQuit(errorCount() > 0 => 1; 0) installDriver(Option '"build-databases",function buildDatabasesHandler) + +--% + +++ Main entry point to the system. +systemMain() == + IN_-PACKAGE '"BOOT" -- ??? is this still necessary? + -- ??? Ideally, we should not be calling AxiomCore::topLevel. + -- ??? Rather, we should be called by that function. Therefore + -- ??? it currently serves only for option processing and we cannot + -- ??? do any substantial work if we call from it. + AxiomCore::topLevel() + REROOT() + %basicSystemIsComplete() => restart() + fatalError '"fell off systemMain" |