12 lines
247 B
Scheme
12 lines
247 B
Scheme
#lang scheme/base
|
|
(require '#%flfxnum)
|
|
|
|
(provide fx->fl
|
|
fxabs
|
|
fx+ fx- fx*
|
|
fxquotient fxremainder fxmodulo
|
|
fxand fxior fxxor
|
|
fxnot fxrshift fxlshift
|
|
fx>= fx> fx= fx< fx<=
|
|
fxmin fxmax)
|