languages/tcl/runtime/builtin/continue.pir

   1 .HLL 'Tcl', ''
   2 .namespace []
   3
   4 .sub '&continue'
   5     .param pmc argv :slurpy
   6
   7     .local int argc
   8     argc = elements argv
   9
  10     if argc != 0 goto bad_args
  11
  12     tcl_continue
  13
  14 bad_args:
  15     die 'wrong # args: should be "continue"'
  16 .end
  17
  18 # Local Variables:
  19 #   mode: pir
  20 #   fill-column: 100
  21 # End:
  22 # vim: expandtab shiftwidth=4 ft=pir: