languages/tcl/runtime/builtin/vwait.pir

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