File r38/packages/support/mkredpsl.sl artifact def7ce3494 part of check-in 9992369dd3


% Build checkpointed version of REDUCE.

(setq !*usermode nil)

(setq !*verboseload t)

(setq !*argnochk t)             % Check argument count.

(setq prolog_file 'pslprolo)

(setq rend_file 'pslrend)

(cond ((filep "$reduce/lisp/psl/$MACHINE/psl/symget.b")
       (dskin "$reduce/packages/support/symget.dat")))

(cond ((filep "$reduce/lisp/psl/$MACHINE/psl/addr2id.b")
       (load addr2id)))         % For debugging purposes.

(cond ((filep "$reduce/lisp/psl/$MACHINE/psl/pipes.b")
       (load pipes)))           % Unix pipes.

(load zbig)                     % PSL bignums.

(errorset '(load compat) nil nil)
				% Load PSL-based functions if there.
(load module)                   % Contains definition of load-package.

(load pslprolo)                 % PSL specific code.

% (load patches)

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

% (load init-file)              % So that .reducerc possible.
				% Now defined in pslrend.red.
(setq !*loadversion t)          % Load entry module during BEGIN.

(setq !*verboseload nil)        % Inhibit loading messages.


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]