/[gcl]/gcl/o/usig2.c
ViewVC logotype

Diff of /gcl/o/usig2.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.10 by camm, Wed Feb 26 22:21:37 2003 UTC
# Line 162  only in very SAFE places.") Line 162  only in very SAFE places.")
162  { if (signo > sizeof(safety_required))  { if (signo > sizeof(safety_required))
163      {FEerror("Illegal signo:~a.",1,make_fixnum(signo));}      {FEerror("Illegal signo:~a.",1,make_fixnum(signo));}
164    if (safety >=0) safety_required[signo] = safety;    if (safety >=0) safety_required[signo] = safety;
165    return make_fixnum(safety_required[signo]) ;    return small_fixnum(safety_required[signo]) ;
166  }  }
167            
168    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26