diff options
Diffstat (limited to 'array.scm')
-rw-r--r-- | array.scm | 106 |
1 files changed, 63 insertions, 43 deletions
@@ -400,96 +400,116 @@ ((or (zero? num) (negative? n)) (zero? num)))))) -;;@args z -;;@args +;;@defun A:floC128b z +;;@defunx A:floC128b ;;Returns an inexact 128.bit flonum complex uniform-array prototype. +;;@end defun (define A:floC128b (make-prototype-checker 'A:floC128b complex? vector)) -;;@args z -;;@args +;;@defun A:floC64b z +;;@defunx A:floC64b ;;Returns an inexact 64.bit flonum complex uniform-array prototype. +;;@end defun (define A:floC64b (make-prototype-checker 'A:floC64b complex? vector)) -;;@args z -;;@args +;;@defun A:floC32b z +;;@defunx A:floC32b ;;Returns an inexact 32.bit flonum complex uniform-array prototype. +;;@end defun (define A:floC32b (make-prototype-checker 'A:floC32b complex? vector)) -;;@args z -;;@args +;;@defun A:floC16b z +;;@defunx A:floC16b ;;Returns an inexact 16.bit flonum complex uniform-array prototype. +;;@end defun (define A:floC16b (make-prototype-checker 'A:floC16b complex? vector)) -;;@args z -;;@args +;;@defun A:floR128b x +;;@defunx A:floR128b ;;Returns an inexact 128.bit flonum real uniform-array prototype. +;;@end defun (define A:floR128b (make-prototype-checker 'A:floR128b real? vector)) -;;@args z -;;@args +;;@defun A:floR64b x +;;@defunx A:floR64b ;;Returns an inexact 64.bit flonum real uniform-array prototype. +;;@end defun (define A:floR64b (make-prototype-checker 'A:floR64b real? vector)) -;;@args z -;;@args +;;@defun A:floR32b x +;;@defunx A:floR32b ;;Returns an inexact 32.bit flonum real uniform-array prototype. +;;@end defun (define A:floR32b (make-prototype-checker 'A:floR32b real? vector)) -;;@args z -;;@args +;;@defun A:floR16b x +;;@defunx A:floR16b ;;Returns an inexact 16.bit flonum real uniform-array prototype. +;;@end defun (define A:floR16b (make-prototype-checker 'A:floR16b real? vector)) -;;@args z -;;@args +;;@defun A:floR128d q +;;@defunx A:floR128d ;;Returns an exact 128.bit decimal flonum rational uniform-array prototype. -(define A:floR128b (make-prototype-checker 'A:floR128b real? vector)) -;;@args z -;;@args +;;@end defun +(define A:floR128d (make-prototype-checker 'A:floR128d real? vector)) +;;@defun A:floR64d q +;;@defunx A:floR64d ;;Returns an exact 64.bit decimal flonum rational uniform-array prototype. -(define A:floR64b (make-prototype-checker 'A:floR64b real? vector)) -;;@args z -;;@args +;;@end defun +(define A:floR64d (make-prototype-checker 'A:floR64d real? vector)) +;;@defun A:floR32d q +;;@defunx A:floR32d ;;Returns an exact 32.bit decimal flonum rational uniform-array prototype. -(define A:floR32b (make-prototype-checker 'A:floR32b real? vector)) +;;@end defun +(define A:floR32d (make-prototype-checker 'A:floR32d real? vector)) -;;@args n -;;@args +;;@defun A:fixZ64b n +;;@defunx A:fixZ64b ;;Returns an exact binary fixnum uniform-array prototype with at least ;;64 bits of precision. +;;@end defun (define A:fixZ64b (make-prototype-checker 'A:fixZ64b (integer-bytes?? -8) vector)) -;;@args n -;;@args +;;@defun A:fixZ32b n +;;@defunx A:fixZ32b ;;Returns an exact binary fixnum uniform-array prototype with at least ;;32 bits of precision. +;;@end defun (define A:fixZ32b (make-prototype-checker 'A:fixZ32b (integer-bytes?? -4) vector)) -;;@args n -;;@args +;;@defun A:fixZ16b n +;;@defunx A:fixZ16b ;;Returns an exact binary fixnum uniform-array prototype with at least ;;16 bits of precision. +;;@end defun (define A:fixZ16b (make-prototype-checker 'A:fixZ16b (integer-bytes?? -2) vector)) -;;@args n -;;@args +;;@defun A:fixZ8b n +;;@defunx A:fixZ8b ;;Returns an exact binary fixnum uniform-array prototype with at least ;;8 bits of precision. +;;@end defun (define A:fixZ8b (make-prototype-checker 'A:fixZ8b (integer-bytes?? -1) vector)) -;;@args k -;;@args +;;@defun A:fixN64b k +;;@defunx A:fixN64b ;;Returns an exact non-negative binary fixnum uniform-array prototype with at ;;least 64 bits of precision. +;;@end defun (define A:fixN64b (make-prototype-checker 'A:fixN64b (integer-bytes?? 8) vector)) -;;@args k -;;@args +;;@defun A:fixN32b k +;;@defunx A:fixN32b ;;Returns an exact non-negative binary fixnum uniform-array prototype with at ;;least 32 bits of precision. +;;@end defun (define A:fixN32b (make-prototype-checker 'A:fixN32b (integer-bytes?? 4) vector)) -;;@args k -;;@args +;;@defun A:fixN16b k +;;@defunx A:fixN16b ;;Returns an exact non-negative binary fixnum uniform-array prototype with at ;;least 16 bits of precision. +;;@end defun (define A:fixN16b (make-prototype-checker 'A:fixN16b (integer-bytes?? 2) vector)) -;;@args k -;;@args +;;@defun A:fixN8b k +;;@defunx A:fixN8b ;;Returns an exact non-negative binary fixnum uniform-array prototype with at ;;least 8 bits of precision. +;;@end defun (define A:fixN8b (make-prototype-checker 'A:fixN8b (integer-bytes?? 1) vector)) -;;@args bool -;;@args +;;@defun A:bool bool +;;@defunx A:bool ;;Returns a boolean uniform-array prototype. +;;@end defun (define A:bool (make-prototype-checker 'A:bool boolean? vector)) |