~ chicken-core (chicken-5) 7a45fad59f226d9d0321d6fa020dc4908a0bed31

commit 7a45fad59f226d9d0321d6fa020dc4908a0bed31
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu May 18 11:25:56 2017 +1200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Fri May 19 11:27:44 2017 +0200

    Drop (provide* ...) compatibility shims
    
    These were only there for compatibility when bootstrapping from CHICKEN
    4, to make any units that are run early in startup indicate that they'd
    been loaded (this is done automatically for units compiled with 5.0.0).
    Now that we have a snapshot release, these can go away.
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/chicken-ffi-syntax.scm b/chicken-ffi-syntax.scm
index f425efef..a14369b4 100644
--- a/chicken-ffi-syntax.scm
+++ b/chicken-ffi-syntax.scm
@@ -45,8 +45,6 @@
 (include "common-declarations.scm")
 (include "mini-srfi-1.scm")
 
-(provide* chicken-ffi-syntax) ; TODO remove after snapshot release
-
 (define ##sys#chicken-ffi-macro-environment
   (let ((me0 (##sys#macro-environment)))
 
diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index de328d86..f43cc045 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -44,8 +44,6 @@
 (include "common-declarations.scm")
 (include "mini-srfi-1.scm")
 
-(provide* chicken-syntax) ; TODO remove after snapshot release
-
 ;;; Exceptions:
 (define ##sys#chicken.condition-macro-environment
   (let ((me0 (##sys#macro-environment)))
diff --git a/common-declarations.scm b/common-declarations.scm
index 39a41a0a..045733fb 100644
--- a/common-declarations.scm
+++ b/common-declarations.scm
@@ -27,16 +27,6 @@
 (declare 
   (usual-integrations))
 
-;; In chicken-5 units are self-providing, but when bootstrapping with
-;; chicken-4 we need to manually trigger C_a_i_provide for some
-;; special-case units (see `core-unit-requirements` in eval.scm).
-(define-syntax provide*
-  (er-macro-transformer
-   (lambda (x r c)
-     (cond-expand
-       (chicken-5 `(##core#undefined))
-       (chicken-4 `(##core#inline_allocate ("C_a_i_provide" 8) ',(cadr x)))))))
-
 (cond-expand
  (debugbuild
   (define-syntax d
diff --git a/eval.scm b/eval.scm
index 40be3b71..8167774f 100644
--- a/eval.scm
+++ b/eval.scm
@@ -59,9 +59,6 @@
 
 (define-syntax d (syntax-rules () ((_ . _) (void))))
 
-(provide* eval) ; TODO remove after a snapshot release
-
-
 ;;; Compile lambda to closure:
 
 (define (eval-decorator p ll h cntr)
diff --git a/library.scm b/library.scm
index 4d144d13..d7a0580e 100644
--- a/library.scm
+++ b/library.scm
@@ -188,9 +188,6 @@ EOF
 (define-constant default-parameter-vector-size 16)
 (define maximal-string-length (foreign-value "C_HEADER_SIZE_MASK" unsigned-long))
 
-(provide* library) ; TODO remove after snapshot release
-
-
 ;;; Fixnum arithmetic:
 
 (module chicken.fixnum *