Forums Bug Reports /while: loop not found

alias wlerror mkdir wlerror\ | noop $findfile(wlerror\,*,0,.remove $qt($1-)) | var %a 200 | while (%a) { write -c wlerror\wlerror $+ %a | dec %a  } | noop $findfile(wlerror\,wlerror*,0,wlerrorcb $1-)
alias wlerrorcb {
  while (1) {
    noop A
    noop B
  }
  :error
  if ($error) {
    reseterror 
    echo -sg error in $1- : $v1
  }
}