intloop () ==
mode := $intRestart
while mode = $intRestart repeat
resetStackLimits()
mode := CATCH($intTopLevel,
SpadInterpretStream(1, ["TIM", "DALY", "?"], true))
Lisp:
(defun intloop ()
(do ((mode $intRestart))
((equal mode $intRestart))
(resetStackInitials)
(setq mode
(catch $intTopLevel (SpadInterpretStream 1 '("TIM" "DALY" "?") t)))))
_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer
