From b5d954069d5245afde6a69cee34df271f8e30d52 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 13 Aug 2008 03:42:35 +0000 Subject: * interp/patches.lisp (RESTART0): Don't duplicate code; call CREATE-INITIALIZERS. --- src/ChangeLog | 5 +++++ src/interp/patches.lisp | 9 +-------- 2 files changed, 6 insertions(+), 8 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 167cfae8..460dad7f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-08-12 Gabriel Dos Reis + + * interp/patches.lisp (RESTART0): Don't duplicate code; call + CREATE-INITIALIZERS. + 2008-08-12 Gabriel Dos Reis * interp/sys-driver.boot (SPAD-SAVE): Fold content into 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 -- cgit v1.2.3