From 7be7c290801c69531f1840788dd502b7d0659c41 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= Date: Sun, 3 Aug 2014 10:50:16 +0200 Subject: [PATCH] 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 --- .../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 index 1e870729..26c70f34 100644 --- 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))]