From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:38 -0800
Subject: Import Upstream version 3a5

---
 array.scm | 106 +++++++++++++++++++++++++++++++++++++-------------------------
 1 file changed, 63 insertions(+), 43 deletions(-)

(limited to 'array.scm')

diff --git a/array.scm b/array.scm
index ff05fd0..4cf93b3 100644
--- a/array.scm
+++ b/array.scm
@@ -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))
-- 
cgit v1.2.3