// $Source$
// $Revision$
// $Date$

$table RFP-Options ;

$func Abs s.num = s.abs;

//$func Max s1 s2 = s.max;
$func Max e = e;

$func Put s.box expr = ;

$func RFP-Clear-Table s.tbl = ;

$func? RFP-Debug? = ;

$func RFP-Double-Copy s.tab = s.new-tab;

$func RFP-Double-Unbind s.tab e.keys = ;

$func RFP-Extract-Qualifiers t.Name = (e.qualifiers) e.name;

$func Del-Pragmas e.Sentence = e.Sentence;

// substitute replacements for each occurence of corresponding patterns in expr
$func Subst (e.patterns) (e.replaces) expr = expr;

// repeat e.expr s.num times
$func Repeat s.num expr = expr;


$func? L- e = e;

$func? R- e = e;

$func? Char?- e = e;

$func? Int?- e = e;