// $Id$

$module "refal.plus.Vector";

$func  Vector        e.Source = s.Vector;
$func  VectorToExp   s.Vector = e.Exp;
$func  VectorInit    s.Vector s.Len e.Fill = ;
$func  VectorFill    s.Vector e.Fill = ;
$func  VectorLength  s.Vector = s.Len;
$func  VectorRef     s.Vector s.Index = e.Exp;
$func  VectorSet     s.Vector s.Index e.Exp = ;
$func  VectorReplace s.Vector e.Source = ;
$func  Subvector     s.Vector s.Index s.Len = s.NewVector;
$func  SubvectorFill s.Vector s.Index s.Len e.Fill = ;