Artifact 002d73136419bcf19609b9c71aef6340c42fe574ffcc54914689dcd0c217cf3b:


% MINI-LOOP-MACROS.RED

fexpr procedure While fl;
  Begin 
    if not PairP fl then return 'NIL;
    While Eval Car fl do EvProgn cdr fl;
  End;

End;


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