Branch: Tag:

2000-01-23

2000-01-23 21:41:26 by Martin Nilsson <mani@lysator.liu.se>

Changed variable name optional to opt.

Rev: server/modules/tags/lisp.pike:1.14

1: Inside #if constant(Languages)
  #if constant(Languages)   #define error(X) throw( ({ (X), backtrace() }) ) - constant cvs_version = "$Id: lisp.pike,v 1.13 1999/05/20 03:26:20 neotron Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.14 2000/01/23 21:41:26 nilsson Exp $";      #include <module.h>   inherit "module";
129: Inside #if constant(Languages)
      array args = ({ });    int i = 0; -  int optional; +  int opt;       while(arglist != Lempty)    {    if (i == sizeof(types))    { -  if (!optional) +  if (!opt)    return 0;    else    break;
144: Inside #if constant(Languages)
   switch(types[i])    {    case 0: /* Any arguments left are optional */ -  optional = 1; +  opt = 1;    i++;    break;    case "string":