13 lines
317 B
Scheme
13 lines
317 B
Scheme
#cs
|
|
(module System-native-methods mzscheme
|
|
|
|
(provide (all-defined))
|
|
|
|
(define (System-currentTimeMillis-native) (inexact->exact (floor (current-inexact-milliseconds))))
|
|
|
|
(define (System-gc-native) (collect-garbage))
|
|
|
|
(define (System-identityHashCode-java.lang.Object-native o) (eq-hash-code o))
|
|
|
|
)
|