suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 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 (case c
[(#\\) (display "$\\backslash$")] [(#\\) (display "$\\backslash$")]
[(#\_) (display "$\\_$")] [(#\_) (display "$\\_$")]
[(#\^) (display "{\\char'136}")]
[(#\>) (if (rendering-tt) [(#\>) (if (rendering-tt)
(display "{\\texttt >}") (display "{\\texttt >}")
(display "$>$"))] (display "$>$"))]
@ -253,7 +254,7 @@
(printf "{\\hbox{\\texttt{~a}}}" c) (printf "{\\hbox{\\texttt{~a}}}" c)
(display c))] (display c))]
[(#\~) (display "$\\sim$")] [(#\~) (display "$\\sim$")]
[(#\{ #\} #\# #\% #\&) (display "\\") (display c)] [(#\{ #\} #\# #\% #\& #\$) (display "\\") (display c)]
[(#\uDF) (display "{\\ss}")] [(#\uDF) (display "{\\ss}")]
[(#\u039A) (display "K")] ; kappa [(#\u039A) (display "K")] ; kappa
[(#\u0391) (display "A")] ; alpha [(#\u0391) (display "A")] ; alpha

2
collects/scribble/scheme.ss
View File

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