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

Fixed a minor exposure of annotation records.

This commit is contained in:
Abdulaziz Ghuloum 2008-05-03 06:49:36 -04:00
parent 3f9b567a5b
commit c3b8e50b23
2 changed files with 6 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 @@
1466 1467

7
scheme/psyntax.expander.ss
View File

@ -545,6 +545,7 @@
[(pair? x) [(pair? x)
(cons (strip-annotations (car x)) (cons (strip-annotations (car x))
(strip-annotations (cdr x)))] (strip-annotations (cdr x)))]
[(vector? x) (vector-map strip-annotations x)]
[(annotation? x) (annotation-stripped x)] [(annotation? x) (annotation-stripped x)]
[else x])) [else x]))
@ -552,8 +553,10 @@
(lambda (x m*) (lambda (x m*)
(if (top-marked? m*) (if (top-marked? m*)
(if (or (annotation? x) (if (or (annotation? x)
(and (pair? x) (and (pair? x)
(annotation? (car x)))) (annotation? (car x)))
(and (vector? x) (> (vector-length x) 0)
(annotation? (vector-ref x 0))))
;;; TODO: Ask Kent why this is a sufficient test ;;; TODO: Ask Kent why this is a sufficient test
(strip-annotations x) (strip-annotations x)
x) x)