~ chicken-core (chicken-5) 06fb58e175d0d0d79fe62b4abb6fcd487cf85e96

commit 06fb58e175d0d0d79fe62b4abb6fcd487cf85e96
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri May 2 16:41:26 2014 +0200
Commit:     Christian Kellermann <ck@pestilenz.org>
CommitDate: Mon May 12 11:43:23 2014 +0200

    Fix #983 by reinstating the vector-like? procedure.
    
    This got (probably accidentally) deleted by commit 1affb847c0c43dbcba34bd5c098ffb28ff1160c0
    
    Signed-off-by: Christian Kellermann <ck@pestilenz.org>

diff --git a/NEWS b/NEWS
index 984f771b..3ddaa965 100644
--- a/NEWS
+++ b/NEWS
@@ -4,6 +4,9 @@
   - alist-ref from unit data-structures now gives an error when passed
     a non-list, for consistency with assv/assq/assoc.
 
+- Unit lolevel:
+  - Restore long-lost but still documented "vector-like?" procedure (#983)
+
 4.9.0
 
 - Security fixes
diff --git a/lolevel.import.scm b/lolevel.import.scm
index e4bdecbb..b2eb27ef 100644
--- a/lolevel.import.scm
+++ b/lolevel.import.scm
@@ -93,4 +93,5 @@
    record-instance-type
    set-procedure-data!
    tag-pointer
-   tagged-pointer?))
+   tagged-pointer?
+   vector-like?))
diff --git a/lolevel.scm b/lolevel.scm
index 1384a504..86ae299c 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -404,6 +404,8 @@ EOF
 
 ;;; Accessors for arbitrary vector-like block objects:
 
+(define (vector-like? x) (%generic-vector? x))
+
 (define block-set! ##sys#block-set!)
 
 (define block-ref