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

svn: r1514

Browse Source
This commit is contained in:
Kathy Gray 2005-12-03 19:40:55 +00:00
parent 4c1d6a1972
commit f0b24a9f27
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/profj/check.ss
View File

@ -1520,8 +1520,14 @@
(and (eq? 'boolean l) (eq? 'boolean r))) (and (eq? 'boolean l) (eq? 'boolean r)))
'boolean) 'boolean)
((and (reference-type? l) (reference-type? r)) ((and (reference-type? l) (reference-type? r))
(let ((right-to-left (assignment-conversion l r type-recs)) (let* ((dl? (dynamic-val? l))
(dr? (dynamic-val? r))
(dlt (when dl? (dynamic-val-type l)))
(drt (when dr? (dynamic-val-type r)))
(right-to-left (assignment-conversion l r type-recs))
(left-to-right (assignment-conversion r l type-recs))) (left-to-right (assignment-conversion r l type-recs)))
(when (and dl? (not dlt)) (set-dynamic-val-type! l #f))
(when (and dr? (not drt)) (set-dynamic-val-type! r #f))
(cond (cond
((or right-to-left left-to-right) 'boolean) ((or right-to-left left-to-right) 'boolean)
(else (bin-op-equality-error 'both op l r src))))) (else (bin-op-equality-error 'both op l r src)))))

2
collects/profj/tool.ss
View File

@ -551,7 +551,7 @@
(newline port)) (newline port))
(define/public (create-executable fn parent . args) (define/public (create-executable fn parent . args)
(printf "create-exe called~n") ;(printf "create-exe called~n")
(message-box "Unsupported" (message-box "Unsupported"
"Sorry - executables are not supported for Java at this time" "Sorry - executables are not supported for Java at this time"
parent)) parent))