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

bug correction

Browse Source 
svn: r11531
This commit is contained in:
Kathy Gray 2008-09-03 15:11:06 +00:00
parent 93c88b9370
commit 9c4eaa2c22
4 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/profj/libs/java/runtime.ss
View File

@ -69,29 +69,29 @@
((or) (or left right)))))
;divide-dynamic: number number -> number
(define (divide-dynamic left right)
(define (divide-dynamic left right marks)
(if (or (inexact? left) (inexact? right))
(divide-float left right)
(divide-int left right)))
;divide-int: int int -> int
(define (divide-int left right)
(define (divide-int left right marks)
(when (zero? right)
(raise (create-java-exception ArithmeticException
"Illegal division by zero"
(lambda (exn msg)
(send exn ArithmeticException-constructor-java.lang.String msg))
(current-continuation-marks))))
marks)))
(quotient left right))
;divide-float: float float -> float
(define (divide-float left right)
(define (divide-float left right marks)
(when (zero? right)
(raise (create-java-exception ArithmeticException
"Illegal division by zero"
(lambda (exn msg)
(send exn ArithmeticException-constructor-java.lang.String msg))
(current-continuation-marks))))
marks)))
(if (and (exact? left) (exact? right))
(exact->inexact (/ left right))
(/ left right)))

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

@ -2026,7 +2026,6 @@
(lambda () (error 'descendent-Runtime "Internal Error: class record is not in table")))))
(member `("java" "lang" "RuntimeException") (class-record-parents class-record)))))
;Converted
;translate-switch: syntax (list CaseStatements) src type-records -> syntax
(define translate-switch
(lambda (expr cases src type-recs)
@ -2042,7 +2041,6 @@
cases))
(build-src src))))
;Converted
;translate-block: (list (U Statement (U var-decl var-init))) src type-recs -> syntax
(define translate-block
(lambda (statements src type-recs)
@ -2414,7 +2412,7 @@
'javaRuntime:divide-dynamic)
(else
'javaRuntime:divide-int))))
(make-syntax #f `(,(create-syntax #f div-op key-src) ,left ,right) source)))
(make-syntax #f `(,(create-syntax #f div-op key-src) ,left ,right (current-continuation-marks)) source)))
((%) (make-syntax #f `(,(create-syntax #f 'javaRuntime:mod key-src) ,left ,right) source))
;Shift operations
((<< >> >>>)

15
collects/profj/tool.ss
View File

@ -760,7 +760,7 @@
(set! compiled? #t)
(set! modules (order compilation-units))
(when rep (send rep set-user-types execute-types))
(set! extras (process-extras (send execute-types get-interactions-boxes) execute-types))
#;(set! extras (process-extras (send execute-types get-interactions-boxes) execute-types))
(set! tests examples))
(datum->syntax #f '(void) #f)]
[else
@ -836,15 +836,16 @@
eof
(begin
(set! executed? #t)
(syntax-as-top
(compile-interactions-ast
(parse-interactions port name level)
name level types #t)
(errortrace-annotate
(syntax-as-top
(compile-interactions-ast
(parse-interactions port name level)
name level types #t)
#;(datum->syntax
#f
`(parse-java-interactions ,(parse-interactions port name level) ,name)
#f)))))))
#f))))))))
(define/public (front-end/finished-complete-program settings) (void))
(define (get-defn-editor port-name)

2
collects/test-engine/java-tests.scm
View File

@ -174,7 +174,7 @@
(when current-testcase
(set-tc-stat-checks!
current-testcase
(cons (make-failed-check src msg)
(cons (make-failed-check src msg exn)
(tc-stat-checks current-testcase))))
(inner (void) check-failed msg src exn))