$include "defs.icn"
$include "global_vars.icn"

#
# Check that x is a legal arg list.
#
#
procedure single_arg(x)

    if ( x.is_empty() | x.first() ~=== x.last() ) then {
	yyperror("Argument list not meaningful")
    }
end