diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-13 03:42:35 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-13 03:42:35 +0000 |
commit | b5d954069d5245afde6a69cee34df271f8e30d52 (patch) | |
tree | aa0f21d2f2b541d4a2c8342218f988308a5cdd2f | |
parent | a900fca6eb41da95b869ca6bdd0a53f4fe319dea (diff) | |
download | open-axiom-b5d954069d5245afde6a69cee34df271f8e30d52.tar.gz |
* interp/patches.lisp (RESTART0): Don't duplicate code; call
CREATE-INITIALIZERS.
-rw-r--r-- | src/ChangeLog | 5 | ||||
-rw-r--r-- | src/interp/patches.lisp | 9 |
2 files changed, 6 insertions, 8 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 167cfae8..460dad7f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2008-08-12 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/patches.lisp (RESTART0): Don't duplicate code; call + CREATE-INITIALIZERS. + +2008-08-12 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/sys-driver.boot (SPAD-SAVE): Fold content into savesystem. Remove. diff --git a/src/interp/patches.lisp b/src/interp/patches.lisp index 77948c16..7d586f75 100644 --- a/src/interp/patches.lisp +++ b/src/interp/patches.lisp @@ -136,14 +136,7 @@ (operationopen);; all of the operations known to the system (categoryopen);; answer hasCategory question (browseopen) - (let ((asharprootlib (strconc (|systemRootDirectory|) "/aldor/lib/"))) - (set-file-getter (strconc asharprootlib "runtime.o")) - (set-file-getter (strconc asharprootlib "lang.o")) - (set-file-getter (strconc asharprootlib "attrib.o")) - (set-file-getter (strconc asharprootlib "axlit.o")) - (set-file-getter (strconc asharprootlib "minimach.o")) - (set-file-getter (strconc asharprootlib "axextend.o"))) -) + (create-initializers)) (defun SHAREDITEMS (x) T) ;;checked in history code (defun whocalled (n) nil) ;; no way to look n frames up the stack |