Import Upstream version 3a2upstream/3a2

1 files changed, 3 insertions, 3 deletions

diff --git a/coerce.scm b/coerce.scm
index 7505f3f..0842c9e 100644
--- a/coerce.scm
+++ b/coerce.scm
@@ -17,11 +17,12 @@
 ;promotional, or sales literature without prior written consent in
 ;each case.
 
+(require-if 'compiling 'array)
+
 ;;@body
 ;;Returns a symbol name for the type of @1.
 (define (type-of obj)
   (cond
-   ;;((null? obj)		'null)
    ((boolean? obj)	'boolean)
    ((char? obj)		'char)
    ((number? obj)	'number)
@@ -33,9 +34,8 @@
    ((eof-object? obj)	'eof-object)
    ((list? obj)		'list)
    ((pair? obj)		'pair)
-   ((and (provided? 'array) (array? obj))	'array)
-   ((and (provided? 'record) (record? obj))	'record)
    ((vector? obj)	'vector)
+   ((and (provided? 'array) (array? obj))	'array)
    (else		'?)))
 
 ;;@body