From d72b44e9f7fc3a562ab645318f72b4d566ffa5e1 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Tue, 5 Aug 2008 18:35:24 +0000
Subject: [PATCH] Changes to slatex.sty from PR 9657.

svn: r11087
---
 collects/slatex/slatex.sty | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/collects/slatex/slatex.sty b/collects/slatex/slatex.sty
index 9106cf3a45..c6a6fbd199 100644
--- a/collects/slatex/slatex.sty
+++ b/collects/slatex/slatex.sty
@@ -168,9 +168,15 @@
 % the following are the default font assignments for
 % words in code.  Change them to suit personal taste
 
-\def\keywordfont#1{{\bf #1}}
-\def\variablefont#1{{\it #1\/}}
-\def\constantfont#1{{\sf #1}}
+\ifusinglatex
+  \def\keywordfont#1{{\bfseries #1}}
+  \def\variablefont#1{{\itshape #1\/}}
+  \def\constantfont#1{{\sffamily #1}}
+\else
+  \def\keywordfont#1{{\bf #1}}
+  \def\variablefont#1{{\it #1\/}}
+  \def\constantfont#1{{\sf #1}}
+\fi
 \def\datafont#1{\constantfont{#1}}
 
 \let\schemecodehook\relax
@@ -536,7 +542,14 @@
 \def\slatexseparateincludes{%
 \gdef\include##1{{\def\subjobname{##1}%
 \sch@mefilenamecount=-1
-\@include##1 }}}
+\@include##1 }}
+%
+% package subfile lets us structure documents; I want SLaTeX to support it
+%\newcommand\subfile[1]{\begingroup\skip@preamble\input{#1}\endgroup}
+\gdef\subfile##1{{\def\subjobname{##1}%
+\sch@mefilenamecount=-1
+\skip@preamble
+\input{##1} }}}
 
 % convenient abbreviations for characters