From a1f9a6f1abc5dc278fbe43b25d9d7c547665f1c6 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 19 May 2009 22:23:17 +0000 Subject: [PATCH] added hack to allow some comments in LP svn: r14875 --- collects/scribble/lp/lang/lang.ss | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/scribble/lp/lang/lang.ss b/collects/scribble/lp/lang/lang.ss index 7ecc7353d5..f8eb1491b6 100644 --- a/collects/scribble/lp/lang/lang.ss +++ b/collects/scribble/lp/lang/lang.ss @@ -6,6 +6,14 @@ (require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase syntax/strip-context)) +;; --- MF: bad hack for getting rid of comments +(provide code:comment) +(define-syntax (code:comment stx) + (if (eq? (syntax-local-context) 'expression) + (syntax (void)) + (syntax (define (f x) x)))) +;; --- MF + (begin-for-syntax (define first-id #f) (define main-id #f)