suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fix **racketmodname.

Browse Source 
The case where (car a) is a string wasn't handled correctly. The error was provoked by sicp-manual.scrbl.
original commit: 9a4f6b1a194cda0b841bac36df18fa4b822bf469
This commit is contained in:
Jens Axel Søgaard 2014-08-03 10:50:16 +02:00 committed by Sam Tobin-Hochstadt
parent 8baf45e435
commit 7be7c29080
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-scheme.rkt
View File

@ -177,7 +177,8 @@
[rest (let loop ([a (cdr (syntax-e stx))] [head? #f]) [rest (let loop ([a (cdr (syntax-e stx))] [head? #f])
(cond (cond
[(identifier? a) (datum->syntax #f (syntax-e a) a a)] [(identifier? a) (datum->syntax #f (syntax-e a) a a)]
[(and head? (pair? a) (free-identifier=? #'unsyntax (car a))) [(and head? (pair? a) (and (identifier? (car a))
(free-identifier=? #'unsyntax (car a))))
a] a]
[(pair? a) (cons (loop (car a) #t) [(pair? a) (cons (loop (car a) #t)
(loop (cdr a) #f))] (loop (cdr a) #f))]