This is iteration.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/./c/iteration.c
Created on Mon Feb 4 23:20:03 1991
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 (73 73 a))
@s[ for (is = var_list; !endp(is); is = MMcdr(is)) {
x = MMcar(is);
@s| for (is = var_list; !endp(is); is = MMcdr(is)) {
x = MMcar(is);
if (type_of(x)==t_symbol)
{vs_push(x);vs_push(Cnil);vs_push(Cnil);vs_push(x);
continue;}
@s]
****Change:(orig (105 105 c))
@s[ object end_test, body, result;
@s| object end_test, body;
VOL object result;
@s]
****Change:(orig (187 187 c))
@s[ object end_test, body, result;
@s| object end_test, body;
VOL object result;
@s]
****Change:(orig (263 263 c))
@s[ object x, listform, result, body;
@s| object x, listform, body;
VOL object result;
@s]
****Change:(orig (342 342 c))
@s[ object x, countform, result, body;
@s| object x, countform, body;
VOL object result;
@s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.