% Build checkpointed version of REDUCE.

% (setq !*backtrace t)              % In case anything goes wrong.

(setq prolog_file 'cslprolo)

(setq rend_file 'cslrend)           % CSL specific code.

(load!-module 'compat)

(setq !*comp nil)

(load!-module 'module)              % Definition of load_package, etc.

(load!-module 'patches)

(load!-module prolog_file)          % CSL specific code.

(setq loaded!-packages!* (list 'compat 'user prolog_file))

(rdf "$reduce/packages/support/mkred2.sl")

(cond ((equal (getenv "MACHINE") "win32")
   (setq plotdir!* (concat (getenv "reduce") "\wutil\win32"))))

(checkpoint 'begin (bldmsg "%w, %w ..." version!* date!*))
