
% Redefine \SColorize to produce B&W Scheme text
\newcommand{\SColorize}[2]{\color{#1}{#2}}

\newcommand{\inColor}[2]{{\Scribtexttt{\SColorize{#1}{#2}}}}
\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}
\definecolor{LightGray}{rgb}{0.90,0.90,0.90}
\definecolor{CommentColor}{rgb}{0.76,0.45,0.12}
\definecolor{ParenColor}{rgb}{0.52,0.24,0.14}
\definecolor{IdentifierColor}{rgb}{0.15,0.15,0.50}
\definecolor{ResultColor}{rgb}{0.0,0.0,0.69}
\definecolor{ValueColor}{rgb}{0.13,0.55,0.13}
\definecolor{OutputColor}{rgb}{0.59,0.00,0.59}

\newcommand{\ScmPlain}[1]{\inColor{black}{#1}}
\newcommand{\ScmKw}[1]{{\SColorize{black}{\Scribtexttt{\textbf{#1}}}}}
\newcommand{\ScmStxLink}[1]{\ScmKw{#1}}
\newcommand{\ScmCmt}[1]{\inColor{CommentColor}{#1}}
\newcommand{\ScmPn}[1]{\inColor{ParenColor}{#1}}
\newcommand{\ScmInBG}[1]{\inColor{ParenColor}{#1}}
\newcommand{\ScmSym}[1]{\inColor{IdentifierColor}{#1}}
\newcommand{\ScmVal}[1]{\inColor{ValueColor}{#1}}
\newcommand{\ScmValLink}[1]{\inColor{blue}{#1}}
\newcommand{\ScmModLink}[1]{\inColor{blue}{#1}}
\newcommand{\ScmRes}[1]{\inColor{ResultColor}{#1}}
\newcommand{\ScmOut}[1]{\inColor{OutputColor}{#1}}
\newcommand{\ScmMeta}[1]{\inColor{IdentifierColor}{#1}}
\newcommand{\ScmMod}[1]{\inColor{black}{#1}}
\newcommand{\ScmRdr}[1]{\inColor{black}{#1}}
\newcommand{\ScmVarCol}[1]{\inColor{IdentifierColor}{#1}}
\newcommand{\ScmVar}[1]{{\ScmVarCol{\textsl{#1}}}}
\newcommand{\ScmErrCol}[1]{\inColor{red}{#1}}
\newcommand{\ScmErr}[1]{{\ScmErrCol{\textrm{\textit{#1}}}}}
\newcommand{\ScmOpt}[1]{#1}
\newcommand{\ScmIn}[1]{\incolorbox{LightGray}{\ScmInBG{#1}}}
\newcommand{\highlighted}[1]{\colorbox{PaleBlue}{\hspace{-0.5ex}\ScmInBG{#1}\hspace{-0.5ex}}}

\newenvironment{ScmBlk}{}{}
\newenvironment{defmodule}{}{}
\newenvironment{prototype}{}{}
\newenvironment{argcontract}{}{}
\newenvironment{together}{}{}

\newenvironment{specgrammar}{}{}


\newenvironment{SBibliography}{}{}
\newcommand{\bibentry}[1]{\parbox[t]{0.8\linewidth}{#1}}

\newenvironment{leftindent}{\begin{quote}}{\end{quote}}
\newenvironment{insetpara}{\begin{quote}}{\end{quote}}

\newcommand{\Sfiletitle}[1]{\hfill \fbox{#1}}
\newcommand{\Sfilename}[1]{#1}
\newenvironment{Sfilebox}{\begin{list}{}{\topsep=0pt\partopsep=0pt%
\listparindent=0pt\itemindent=0pt\labelwidth=0pt\leftmargin=2ex\rightmargin=2ex%
\itemsep=0pt\parsep=0pt}\item}{\end{list}}
\newenvironment{Sfilecontent}{}{}
