Searched refs:inexactp (Results 1 – 16 of 16) sorted by relevance
40 (defun inexactp (x)76 (export-bindings '(realp rationalp inexactp positivep negativep
39 int sign = 1, inexactp = 0, scale_sign = 1, ch; in json_read_number() local50 inexactp = 1; in json_read_number()55 inexactp = 1; in json_read_number()68 return (inexactp || fabs(res) > SEXP_MAX_FIXNUM) ? in json_read_number()
53 Prim(inexactp, "inexact?", 1)
91 realp exactp inexactp exact->inexact inexact->exact numerator
2828 int c, digit, negativep = 0, inexactp = 0; in sexp_read_number() local2842 case 'i': inexactp = 1; break; case 'e': exactp = 1; break; in sexp_read_number()2968 if (inexactp) in sexp_read_number()2992 return inexactp ? sexp_make_flonum(ctx, negativep ? -val : val) in sexp_read_number()
5687 (define $m.inexactp 1248)5798 (define $ex.inexactp 32)20315 (millicode-call/0arg as $m.inexactp)))23740 (millicode-name $m.inexactp "inexact?")
567 (let () (begin (set! $m.inexactp 1248) '$m.inexactp))674 (let () (begin (set! $ex.inexactp 32) '$ex.inexactp))
567 (let () (begin (set! $m.inexactp 1248) '$m.inexactp))674 (let () (begin (set! $ex.inexactp 32) '$ex.inexactp))1772 (let () (define-primop 'inexact? (lambda (.as|1) (millicode-call/0arg .as|1 $m.inexactp))))2110 …integer?") (.millicode-name|4 $m.exactp "exact?") (.millicode-name|4 $m.inexactp "inexact?") (.mil…
5687 (define $m.inexactp 1248)5798 (define $ex.inexactp 32)
977 @defun inexactp object