suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

one more paren-shape correction and test

Browse Source 
svn: r4409
This commit is contained in:
Matthew Flatt 2006-09-22 00:47:17 +00:00
parent 7f62277189
commit 6e2f93b147
4 changed files with 417 additions and 413 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mzscheme/stx.ss
View File

@ -203,6 +203,10 @@
(test #\[ syntax-property s 'paren-shape) (test #\[ syntax-property s 'paren-shape)
(test #\[ syntax-property (syntax-case s () [(b _) #'b]) 'paren-shape)) (test #\[ syntax-property (syntax-case s () [(b _) #'b]) 'paren-shape))
(let ([s (with-syntax ([(a ...) '(1 2 3)])
#'[a ...])])
(test #\[ syntax-property s 'paren-shape))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Two-step macro chain ;; Two-step macro chain

824
src/mzscheme/src/cstartup.inc
View File

File diff suppressed because it is too large Load Diff

1
src/mzscheme/src/startup.inc
View File

@ -1343,6 +1343,7 @@
"(and dest(datum->syntax-object" "(and dest(datum->syntax-object"
" dest" " dest"
" 'dest" " 'dest"
" dest"
" dest))))" " dest))))"
" `(datum->syntax-object/shape(quote-syntax ,small-dest)" " `(datum->syntax-object/shape(quote-syntax ,small-dest)"
" ,build))))))" " ,build))))))"

1
src/mzscheme/src/startup.ss
View File

@ -1567,6 +1567,7 @@
(and dest (datum->syntax-object (and dest (datum->syntax-object
dest dest
'dest 'dest
dest
dest))]) dest))])
`(datum->syntax-object/shape (quote-syntax ,small-dest) `(datum->syntax-object/shape (quote-syntax ,small-dest)
,build))))]) ,build))))])