added hack to allow some comments in LP
svn: r14875 original commit: a1f9a6f1abc5dc278fbe43b25d9d7c547665f1c6
This commit is contained in:
parent
7146e7130c
commit
bb858b6a3f
|
@ -6,6 +6,14 @@
|
||||||
(require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase
|
(require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase
|
||||||
syntax/strip-context))
|
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
|
(begin-for-syntax
|
||||||
(define first-id #f)
|
(define first-id #f)
|
||||||
(define main-id #f)
|
(define main-id #f)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user