From 5145dd3aa0c02c9fc496d1432fc4410674206e1d Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:31 -0800
Subject: Import Upstream version 3a2

---
 coerce.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'coerce.scm')

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
-- 
cgit v1.2.3