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

Commit for bug 8862

Browse Source 
svn: r7083
This commit is contained in:
Kathy Gray 2007-08-11 17:53:56 +00:00
parent 5bce2fee96
commit 0a10274225
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/profj/to-scheme.ss
View File

@ -2517,9 +2517,10 @@
(if cant-be-null?
(make-syntax #f `(,id ,expr) (build-src src))
(make-syntax #f
`(if (null? ,expr)
(javaRuntime:nullError 'field)
(,id ,expr))
`(let ([val~1 ,expr])
(if (null? val~1)
(javaRuntime:nullError 'field)
(,id val~1)))
(build-src src)))))
(if (dynamic-val? type)
(let ((access-syntax (cond