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: root
Subject: Re: [Axiom-developer] Terms of Surrender (was: BAD tim)
Date: Sun, 6 Nov 2005 10:49:50 -0500 
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]