File psl-1983/3-1/tests/mini-loop-macros.red artifact 002d731364 part of check-in d9e362f11e

% 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;