The R Project SVN R

Rev

Rev 2 | Rev 257 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 254
Line 300... Line 300...
300 
}
 300 
}
301 
 
 301 
 
302 
static int fractionAtom(SEXP expr)
 302 
static int fractionAtom(SEXP expr)
303 
{
 303 
{
304 
	return symbolAtom(expr) &&
 304 
	return symbolAtom(expr) &&
305 
	    symbolMatch(expr, "over");
 305 
	    (symbolMatch(expr, "over") || symbolMatch(expr, "frac"));
306 
}
 306 
}
307 
 
 307 
 
308 
static int groupAtom(SEXP expr)
 308 
static int groupAtom(SEXP expr)
309 
{
 309 
{
310 
	return symbolAtom(expr) && (expr == groupSymbol);
 310 
	return symbolAtom(expr) && (expr == groupSymbol);