Artifact b01ce0d2b33e16490d74fb20c106d39998223aa13779617a6fd9b88cf79c751f:


% Edit by Cris Perdue,  4 Apr 1983 0950-PST
% Switchs --> Switches

(put 'Help	'HelpFunction	'HelpHelp)
(put '!?	'HelpFunction	'HelpHelp)
(put 'Br	'HelpFile	'mini!-trace)
(put 'Break	'HelpFunction	'HelpBreak)
(put 'Edit	'HelpFile	'Editor)
(put 'EditF	'HelpFile	'ZPEdit)
(put 'Switches	'HelpFunction	'ShowSwitches)
(put 'Globals	'HelpFunction	'ShowGlobals)
(put 'LapIn	'HelpFile	'Load)
(put 'Load	'HelpFile	'Load)
(put 'MiniEditor 'HelpFile      'Mini!-Editor)
(put 'MiniTrace 'HelpFile	'Mini!-Trace)
(put 'TopLoop	'HelpFunction	'HelpTopLoop)
(put 'Tr	'HelpFile	'mini!-trace)
(put 'UnBr	'HelpFile	'mini!-trace)
(put 'UnTr	'HelpFile	'mini!-trace)

(DefineSwitch 'Echo "Echo input characters if T")
(DefineSwitch 'Time "Print TimeCheck in TopLoop")
(DefineSwitch 'Defn  "Output Parsed Expression, bypass EVAL")

(defineGlobal 'OutputBase!*  "Output base for numbers")
(defineGlobal 'PromptString!*  "Current input prompt")
%(defineGlobal 'Module!*  "Module name for help system")
(defineGlobal 'TopLoopName!*  "Name of current top loop")
(defineGlobal 'TopLoopRead!*  "Current reader in top loop")
(defineGlobal 'TopLoopEval!*  "Current evaluator in top loop")
(defineGlobal 'TopLoopPrint!*  "Current printer in top loop")


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