// $Id$

//X/$interface Stream-Position;

$func Init_Position e.name = t.position;

$func Name   t.position = e.name;
$func Row    t.position = s.row;
$func Column t.position = s.column;

$func Advance_Pos t.position expr = t.position;
$func Relapse_Pos t.position expr = t.position;