1c6
@verb #80:"format_list" this none this rxdo #60
@program #80:"format_list" this none this
":format_list(`' | `UL' | `OL', {<text>})"
"Creates an unordered list, or and ordered list, or just returns the unformated list."
{style, items} = args
if (style)
  text = tostr("<", style, ">")
  for x in (items)
    text = tostr(text, "<LI>", x)
  endfor
  items = tostr(text, "</", style, ">")
else
  "Ok to return a list."
endif
return items
.

0