[Chicken-hackers] [PATCH] Drop (provide* ...) compatibility shims

[Evan Hanson]

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.
---
 chicken-ffi-syntax.scm  |  2 --
 chicken-syntax.scm      |  2 --
 common-declarations.scm | 10 ----------
 eval.scm                |  3 ---
 library.scm             |  3 ---
 5 files changed, 20 deletions(-)

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 65367b83..40655eee 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
-
 ;;; Non-standard macros:
 
 (define ##sys#chicken-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 9fb27da7..4690784c 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 6826107a..70972906 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 *
-- 
2.11.0