diff options
Diffstat (limited to 'src/interp/patches.lisp')
| -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 |