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

copy over missed paren-shape change from branch

Browse Source 
svn: r4408
This commit is contained in:
Matthew Flatt 2006-09-21 22:30:58 +00:00
parent 9b79de00d6
commit 7f62277189
3 changed files with 360 additions and 358 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

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

@ -1608,7 +1608,7 @@
"(if(syntax? datum)" "(if(syntax? datum)"
" datum" " datum"
"(let((stx(datum->syntax-object orig datum orig)))" "(let((stx(datum->syntax-object orig datum orig)))"
"(let((shape(syntax-property stx 'paren-shape)))" "(let((shape(syntax-property orig 'paren-shape)))"
"(if shape" "(if shape"
"(syntax-property stx 'paren-shape shape)" "(syntax-property stx 'paren-shape shape)"
" stx)))))" " stx)))))"

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

@ -1894,7 +1894,7 @@
(if (syntax? datum) (if (syntax? datum)
datum datum
(let ([stx (datum->syntax-object orig datum orig)]) (let ([stx (datum->syntax-object orig datum orig)])
(let ([shape (syntax-property stx 'paren-shape)]) (let ([shape (syntax-property orig 'paren-shape)])
(if shape (if shape
(syntax-property stx 'paren-shape shape) (syntax-property stx 'paren-shape shape)
stx))))) stx)))))