(setq loaddirectories* '("" "$reduce\lisp\psl\win32\red\"
			    "$reduce\lisp\psl\win32\psl\"))

(set_heap_extend_size 120000)

% (ON BACKTRACE) % Doesn't work properly?

(cd (getenv "reduce"))

(reclaim)

(load arith387)   % Since we don't see too many bare 386's these days.

% load REDUCE modules

(dskin "packages\support\mkredpsl.sl")

% hooks for plot, help and fancy.

(load w-pipes)

(setq !*!*windows 1)   % For gnuplot.

% (errorset '(dskin "$reduce\packages\plot\plothook.sl") nil nil)

(flag '(fancy) 'switch)

(put 'fancy 'simpfg
  '((t (load fmprint) (fmp!-switch t))
    (nil (fmp!-switch nil)) ))

% implant graphics mode switch

(setq *fancy nil)

(cond ((not (unboundp 'win-messages))
       (putv win-messages 3 '(~on '(fancy)))
       (putv win-messages 4 '(and *fancy (~off '(fancy))))))

(setq lispsystem!* (cons (INTERN (GETENV "machine")) (delete 'UNIX lispsystem!*)))

(copyd '! yield 'whatsup)

(savesystem "REDUCE"
   (BLDMSG "lisp\psl\%w\red\reduce" (GETENV "machine")) '((read-init-file "reduce")))

(exitlisp)
