conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug 178334: annotation structs being revealed

This commit is contained in:
Abdulaziz Ghuloum 2007-12-23 16:23:20 -05:00
parent 788b613bba
commit 2e7faf85c7
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1280 1281

16
scheme/psyntax.expander.ss
View File

@ -460,11 +460,23 @@
;;; strip is used to remove the wrap of a syntax object. ;;; strip is used to remove the wrap of a syntax object.
;;; It takes an stx's expr and marks. If the marks contain ;;; It takes an stx's expr and marks. If the marks contain
;;; a top-mark, then the expr is returned. ;;; a top-mark, then the expr is returned.
(define (strip-annotations x)
(cond
[(pair? x)
(cons (strip-annotations (car x))
(strip-annotations (cdr x)))]
[(annotation? x) (annotation-stripped x)]
[else x]))
(define strip (define strip
(lambda (x m*) (lambda (x m*)
(if (top-marked? m*) (if (top-marked? m*)
(if (annotation? x) (if (or (annotation? x)
(annotation-stripped x) (and (pair? x)
(annotation? (car x))))
;;; TODO: Ask Kent why this is a sufficient test
(strip-annotations x)
x) x)
(let f ((x x)) (let f ((x x))
(cond (cond