From f102c718c6aebb8932fbee23bf0df6df092aa440 Mon Sep 17 00:00:00 2001
From: dyb <dyb@scheme.com>
Date: Thu, 12 Oct 2017 23:48:32 -0400
Subject: [PATCH] no longer using replacements for \tt underscore, tilde,
 at-sign, dots, and curly braces, since the current cmtt font seems to support
 these characters better than it once did.   csug/scheme.sty  
 release_notes/scheme.sty

original commit: f6c57b55cfbe34b269a606bd96983d62191a9aa1
---
 csug/scheme.sty          | 12 ++++++------
 release_notes/scheme.sty | 12 ++++++------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/csug/scheme.sty b/csug/scheme.sty
index 66af3b617e..db437b665f 100644
--- a/csug/scheme.sty
+++ b/csug/scheme.sty
@@ -54,14 +54,14 @@
 \newskip\schemeindent
 \schemeindent=0pt
 {\obeyspaces\global\let =\ }
-\def\schtilde{\raisebox{-.5ex}{\hbox to .5em{\hss\schemelarger\rm\char`\~\hss}}}
-\def\schdot{\hbox to .5em{\hfil\schemelarger\bf.\hfil}}
+\def\schtilde{\raisebox{-.5ex}{\hbox{\char`\~}}}
+\def\schdot{.}
 \def\schcarat{\char`\^}
 \def\schbackslash{\char`\\}
-\def\schatsign{\hbox to .5em{\hss\schemesmaller\rm\char`\@\hss}}
-\def\schunderscore{\hbox to .5em{\hss\schemelarger\_\hss}}
-\def\schlbrace{$\{$}
-\def\schrbrace{$\}$}
+\def\schatsign{\char`\@}
+\def\schunderscore{\char`\_}
+\def\schlbrace{\char`\{}
+\def\schrbrace{\char`\}}
 \def\scheme#1{\mbox{\tt\frenchspacing\spaceskip=\ttglue#1}}
 
 \def\schemeblankline{\par\penalty-100\vskip .7\baselineskip}
diff --git a/release_notes/scheme.sty b/release_notes/scheme.sty
index ea1678e745..72e85ee844 100644
--- a/release_notes/scheme.sty
+++ b/release_notes/scheme.sty
@@ -12,14 +12,14 @@
 \newskip\schemeindent
 \schemeindent=0pt
 {\obeyspaces\global\let =\ }
-\def\schtilde{\raisebox{-.5ex}{\hbox to .5em{\hss\large\rm\char`\~\hss}}}
-\def\schdot{\hbox to .5em{\hfil\large\bf.\hfil}}
+\def\schtilde{\raisebox{-.5ex}{\hbox{\char`\~}}}
+\def\schdot{.}
 \def\schcarat{\char`\^}
 \def\schbackslash{\char`\\}
-\def\schatsign{\hbox to .5em{\hss\footnotesize\rm\char`\@\hss}}
-\def\schunderscore{\hbox to .5em{\hss\large\_\hss}}
-\def\schlbrace{$\{$}
-\def\schrbrace{$\}$}
+\def\schatsign{\char`\@}
+\def\schunderscore{\char`\_}
+\def\schlbrace{\char`\{}
+\def\schrbrace{\char`\}}
 \def\scheme#1{\mbox{\ttfamily\ninefivett\frenchspacing\spaceskip=\ttglue#1}}
 
 \def\schemeblankline{\par\beforeschemedisplay}