Welcome to the CHICKEN Scheme pasting service

intrinsics, extract added by Bunny351 on Tue Jan 22 14:24:17 2019

(define-intrinsic (C_u_i_flonum_nanp a c x)
  `(C_ub_i_flonum_nanp (C_flonum_magnitude ,x)))
(define-intrinsic (C_u_i_flonum_finitep a c x)
  `(C_ub_i_flonum_finitep (C_flonum_magnitude ,x)))
(define-intrinsic (C_u_i_flonum_infinitep a c x)
  `(C_ub_i_flonum_infinitep (C_flonum_magnitude ,x)))
  
(define-intrinsic (C_ub_i_flonum_nanp x)
  (let ((t1 (temp)))
    (checkf x)
    (emit #t "%" t1 " =w call $__isnan(d %" x ")")
    (mkbool t1)))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the operator to construct procedures?
Visually impaired? Let me spell it for you (wav file) download WAV