suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix up latex output and regexp display

Browse Source 
svn: r6574

original commit: 1bf926de536e926706cbb2d0b3c65bb5b811dc23
This commit is contained in:
Matthew Flatt 2007-06-11 07:28:48 +00:00
parent 6281c85249
commit d82317d871
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/latex-render.ss
View File

@ -240,6 +240,7 @@
(case c
[(#\\) (display "$\\backslash$")]
[(#\_) (display "$\\_$")]
[(#\^) (display "{\\char'136}")]
[(#\>) (if (rendering-tt)
(display "{\\texttt >}")
(display "$>$"))]
@ -253,7 +254,7 @@
(printf "{\\hbox{\\texttt{~a}}}" c)
(display c))]
[(#\~) (display "$\\sim$")]
[(#\{ #\} #\# #\% #\&) (display "\\") (display c)]
[(#\{ #\} #\# #\% #\& #\$) (display "\\") (display c)]
[(#\uDF) (display "{\\ss}")]
[(#\u039A) (display "K")] ; kappa
[(#\u0391) (display "A")] ; alpha

2
collects/scribble/scheme.ss
View File

@ -369,6 +369,8 @@
(string? (syntax-e c))
(bytes? (syntax-e c))
(char? (syntax-e c))
(regexp? (syntax-e c))
(byte-regexp? (syntax-e c))
(boolean? (syntax-e c)))
value-color]
[(identifier? c)