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 /src/interp | |
| parent | a900fca6eb41da95b869ca6bdd0a53f4fe319dea (diff) | |
| download | open-axiom-b5d954069d5245afde6a69cee34df271f8e30d52.tar.gz | |
* interp/patches.lisp (RESTART0): Don't duplicate code; call
CREATE-INITIALIZERS.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/patches.lisp | 9 |
1 files changed, 1 insertions, 8 deletions
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 |