ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/V/c/number.c

This is number.c in view mode; [Download] [Up]

Changes file for /usr/local/src/kcl/c/number.c
Created on Tue Jun 12 09:30:54 1990
Usage \n@s[Original text\n@s|Replacement Text\n@s]
See the file rascal.ics.utexas.edu:/usr2/ftp/merge.c
for a program to merge change files.  Anything not between
"\n@s[" and  "\n@s]" is a simply a comment.
This file was constructed using emacs and  merge.el
Enhancements Copyright (c) W. Schelter All rights reserved.
   by (Bill Schelter)  wfs@carl.ma.utexas.edu 


****Change:(orig (56 57 d))
@s[	if (number_zerop(num))
		return(small_fixnum(0));

@s|
@s]


****Change:(orig (59 59 a))
@s[		FEerror("Zero denominator.", 0);

@s|		FEerror("Zero denominator.", 0);
	if (number_zerop(num))
		return(small_fixnum(0));

@s]

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.