russell: C:/Users/Dennis/src/lang/russell.orig/src/pass1/applinfer/single

00001 # include "parm.h"
00002 # include "stree/ststructs.mh"
00003 
00004 # define DEBUG DEBUG
00005 
00006 /*
00007  * Check that x is a legal arg list.
00008  *
00009  */
00010 single_arg(x)
00011 NODE * x;
00012 {
00013 #   ifdef DEBUG
00014         if ( !is_list(x) ) {
00015             dbgmsg("\nsimple_arg: Improper argument list: %o\n",x);
00016             abort();
00017         }
00018 #   endif
00019 
00020     if ( is_empty(x) || first(x) != last(x) ) {
00021         yyperror("Argument list not meaningful");
00022     }
00023 }
00024

C:/Users/Dennis/src/lang/russell.orig/src/pass1/applinfer/single_arg.c