File psl-1983/tests/mini-loop-macros.red artifact 002d731364 part of check-in 3af273af29
% 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;
% 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;