From b110671c5cb691fae4b60872d0cc63f285c6eafa Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 30 Aug 2011 15:54:14 -0600
Subject: [PATCH] Comment out broken place check

---
 collects/racket/place.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/racket/place.rkt b/collects/racket/place.rkt
index d1e9261c0d..ff450f8bf4 100644
--- a/collects/racket/place.rkt
+++ b/collects/racket/place.rkt
@@ -147,7 +147,8 @@
   (syntax-case stx ()
     [(_ ch body1 body ...)
      (begin
-       (unless (eq? 'module (syntax-local-context))
+       ;breaks valid uses of place
+       #;(unless (eq? 'module (syntax-local-context))
          (raise-syntax-error #f "can only be used in a module" stx))
        (unless (identifier? #'ch)
          (raise-syntax-error #f "expected an indentifier" stx #'ch))