From 0736e62a49b5068008ec8bb26c478322d80188a1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 19 Jul 2013 04:05:16 -0600 Subject: [PATCH] fix `raco exe' --- racket/lib/collects/compiler/embed-unit.rkt | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/racket/lib/collects/compiler/embed-unit.rkt b/racket/lib/collects/compiler/embed-unit.rkt index 17a2a32283..4d2177448d 100644 --- a/racket/lib/collects/compiler/embed-unit.rkt +++ b/racket/lib/collects/compiler/embed-unit.rkt @@ -446,14 +446,16 @@ (if (path? module-path) (path->complete-path module-path) module-path)]) - (syntax-case (expand `(,#'module m racket/base - (#%require (only ,module-path) - racket/runtime-path) - (runtime-paths ,module-path))) (quote) - [(_ m mz (#%mb rfs req (quote (spec ...)))) + (define e (expand `(,#'module m racket/kernel + (#%require (only ,module-path) + racket/runtime-path) + (runtime-paths ,module-path)))) + (syntax-case e (quote) + [(_ m mz (#%mb req (quote (spec ...)))) (syntax->datum #'(spec ...))] [_else (error 'create-empbedding-executable - "expansion mismatch when getting external paths")]))))] + "expansion mismatch when getting external paths: ~e" + (syntax->datum e))]))))] [extra-runtime-paths (filter values