axiom-developer
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE: [Axiom-developer] Terms of Surrender (was: BAD tim)

From: Bill Page
Subject: RE: [Axiom-developer] Terms of Surrender (was: BAD tim)
Date: Sun, 6 Nov 2005 10:44:47 -0500 
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)))))
>
reply via email to
[Prev in Thread] Current Thread [Next in Thread]