;;; -*-LISP-*-

(defun loader (f)
  (print 'loading)
  (prin1 f)
  (let ((s (open f 'in)))
    (do ((x (read s '$$$EOF$$$) (read s '$$$EOF$$$)))
	((eq x '$$$EOF$$$) T)
      (print (eval x)))))

(defun load-shrdlu ()
  (alloc '(list 320000 fixnum 15000 symbol 15000 array 500))
  (setsyntax '/" 'macro NIL)
  (setsyntax '/# 'macro NIL)
  (mapc (function loader)
	'(syscom morpho show))
  (gc)
  (setq ^D T)						;GC notification on..
  (mapc (function loader)
	'(progmr ginter gramar dictio))
  )

(load-shrdlu)