bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE
commit 7be7c290801c69531f1840788dd502b7d0659c41
parent 8baf45e43588a8ad59d2ef87a7cf8ace5303d863
Author: Jens Axel Søgaard <jensaxel@soegaard.net>
Date:   Sun,  3 Aug 2014 10:50:16 +0200

Fix **racketmodname.

The case where (car a) is a string wasn't handled correctly. The error was provoked by sicp-manual.scrbl.
original commit: 9a4f6b1a194cda0b841bac36df18fa4b822bf469

Diffstat:

Mpkgs/scribble-pkgs/scribble-lib/scribble/private/manual-scheme.rkt | 3++-


1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-scheme.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-scheme.rkt
@@ -177,7 +177,8 @@
                           [rest (let loop ([a (cdr (syntax-e stx))] [head? #f])
                                   (cond
                                    [(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]
                                    [(pair? a) (cons (loop (car a) #t) 
                                                     (loop (cdr a) #f))]