diff options
| -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 |