%  label.cd
%  Anders G S Svensson

%  Source: label.nw
%          $Revision: 1.2 $
%          $Date: 1996/02/19 02:05:49 $

\usecarrot{counter,xr}

\def\definelabel#1#2{%
   \@ifundefined@{counter@ctn@#2}%
      {\@Warning@{Unknown class: #2}}%
      {\definexr{#1}{\@cs@{the#2}}{#2}{\noexpand\folio}}}
\def\label#1{\definelabel{#1}{\currentcounter}}

\let\ref\refxr
\let\pageref\pagexr
\let\pagedef\definepage