From 0f0562ca9672568f3f8ca33ec6a17ba64c36c015 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 14 Nov 2011 00:43:07 +0000
Subject: 	* lisp/core.lisp.in: Export %sysInit. 	*
 interp/sys-driver.boot (%sysInit):  Don't redefine.  Reset 	function
 binding.

---
 src/interp/sys-driver.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/sys-driver.boot')

diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index b19aa5cf..6dbbe12d 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -56,7 +56,7 @@ $options := []
 +++ Initialization routine run by the core system before handing off
 +++ to the interpreter or compiler.  
 +++ ??? This part is still in flux.
-AxiomCore::%sysInit() ==
+symbolFunction('%sysInit) := () +->
   SETQ(_*READ_-DEFAULT_-FLOAT_-FORMAT_*, "DOUBLE-FLOAT")
   SETQ(_*PACKAGE_*, FIND_-PACKAGE '"BOOT")
   SETQ(_*LOAD_-VERBOSE_*,false)
-- 
cgit v1.2.3