Am (marginally) happier. :)
On November 6, 2005 10:50 AM Tim Daly wrote:
>
> 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
Axiom-developer@nongnu.org
http://lists.nongnu.org/mailman/listinfo/axiom-developer
