~ chicken-core (master) e6b36141755434f2630db4f82732b17cc0788e9d
commit e6b36141755434f2630db4f82732b17cc0788e9d
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 1 12:15:05 2026 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 1 12:15:05 2026 +0200
drop deprecated stuff
diff --git a/DEPRECATED b/DEPRECATED
index 53697615..1adda82c 100644
--- a/DEPRECATED
+++ b/DEPRECATED
@@ -6,38 +6,11 @@ Deprecated functions and variables
foreign type "bytevector".
5.3.1
-- read/source-info from the internal, undocumented module
- (chicken compiler support) is deprecated. Instead, use
- read-with-source-info from (chicken syntax).
- "set-signal-handler!" and "signal-handler" have been deprecated
in favor of "make-signal-handler" and "ignore-signal" which are
better suited in a multithreaded environment.
-- "chicken-home" is deprecated as it is not possible to override
- when installing eggs into a custom location. Use "include-path" instead
- (or "##sys#include-pathnames" for code that is intended to be
- backwards compatible) when accessing the data location.
-
-5.2.1
-- current-milliseconds and its C implementations C_milliseconds and
- C_a_i_current_milliseconds have been deprecated in favor of
- current-process_milliseconds, C_current_process_milliseconds and
- C_a_i_current_process_milliseconds
-- C_pair() is now officially deprecated in favor of C_a_pair(), which
- should also be faster.
-
-5.1.1
-
-- ##sys#check-exact and its C implementations C_i_check_exact and
- C_i_check_exact_2 have been deprecated (see also #1631).
-- "C_u_i_zerop" has been turned into an inline operation and is
- deprecated in favor of "C_u_i_zerop2".
-- The define-record-printer macro has been deprecated in favour of
- record-printer and set-record-printer! procedures, and a SRFI-17
- setter for the former.
-
5.0.0
-
- "bit->boolean" has been introduced temporarily to avoid users
having to figure out why "bit-set?" uses a different argument
order than the procedure with the same name that is specified in
diff --git a/NEWS b/NEWS
index ebcfb6bc..d1c8cb47 100644
--- a/NEWS
+++ b/NEWS
@@ -15,7 +15,7 @@
imposed by the REPL.
- Fixed a bug in "read-string" when reading from a binary port.
- Fixed a bug in bit->boolean when given negative bignums which would give
- incorrect output or crash due to out of bounds read (reported by crzcrz)
+ incorrect output or crash due to out of bounds read (reported by crzcrz).
- Syntax expander
- Fixed bug in handling of "export-all" library declaration which caused
diff --git a/chicken.h b/chicken.h
index 4786907e..75bce52f 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1431,7 +1431,6 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
#endif
#define C_i_check_closure(x) C_i_check_closure_2(x, C_SCHEME_FALSE)
-#define C_i_check_exact(x) C_i_check_exact_2(x, C_SCHEME_FALSE) /* DEPRECATED */
#define C_i_check_fixnum(x) C_i_check_fixnum_2(x, C_SCHEME_FALSE)
#define C_i_check_inexact(x) C_i_check_inexact_2(x, C_SCHEME_FALSE)
#define C_i_check_number(x) C_i_check_number_2(x, C_SCHEME_FALSE)
@@ -1850,7 +1849,6 @@ C_fctexport void C_not_an_uinteger_error(C_char *loc, C_word x) C_noret;
C_fctexport void C_rest_arg_out_of_bounds_error(C_word c, C_word n, C_word ka) C_noret;
C_fctexport void C_rest_arg_out_of_bounds_error_2(C_word c, C_word n, C_word ka, C_word closure) C_noret;
C_fctexport C_word C_closure(C_word **ptr, int cells, C_word proc, ...);
-C_fctexport C_word C_pair(C_word **ptr, C_word car, C_word cdr) C_regparm;
C_fctexport C_word C_number(C_word **ptr, double n) C_regparm;
C_fctexport C_word C_mpointer(C_word **ptr, void *mp) C_regparm;
C_fctexport C_word C_mpointer_or_false(C_word **ptr, void *mp) C_regparm;
@@ -2064,7 +2062,6 @@ C_fctexport C_word C_i_nanp(C_word x) C_regparm;
C_fctexport C_word C_i_finitep(C_word x) C_regparm;
C_fctexport C_word C_i_infinitep(C_word x) C_regparm;
C_fctexport C_word C_i_zerop(C_word x) C_regparm;
-C_fctexport C_word C_u_i_zerop(C_word x) C_regparm; /* DEPRECATED */
C_fctexport C_word C_i_positivep(C_word x) C_regparm;
C_fctexport C_word C_i_integer_positivep(C_word x) C_regparm;
C_fctexport C_word C_i_negativep(C_word x) C_regparm;
@@ -2197,7 +2194,6 @@ C_fctexport C_word C_i_persist_symbol(C_word sym) C_regparm;
C_fctexport C_word C_i_unpersist_symbol(C_word sym) C_regparm;
C_fctexport C_word C_i_get_keyword(C_word key, C_word args, C_word def) C_regparm;
C_fctexport C_word C_i_process_sleep(C_word n) C_regparm;
-C_fctexport C_u64 C_milliseconds(void) C_regparm; /* DEPRECATED */
C_fctexport C_u64 C_current_process_milliseconds(void) C_regparm;
C_fctexport C_u64 C_cpu_milliseconds(void) C_regparm;
C_fctexport double C_bignum_to_double(C_word bignum) C_regparm;
diff --git a/chicken.time.import.scm b/chicken.time.import.scm
index 757ce7bc..59b838ba 100644
--- a/chicken.time.import.scm
+++ b/chicken.time.import.scm
@@ -1,4 +1,4 @@
-;;;; chicken.time.import.scm - GENERATED BY CHICKEN 5.0.0 -*- Scheme -*-
+;;;; chicken.time.import.scm
;
; Copyright (c) 2018-2022, The CHICKEN Team
; All rights reserved.
@@ -27,7 +27,6 @@
'chicken.time
'library
'((cpu-time . chicken.time#cpu-time)
- (current-milliseconds . chicken.time#current-milliseconds) ; DEPRECATED
(current-process-milliseconds . chicken.time#current-process-milliseconds)
(current-seconds . chicken.time#current-seconds))
##sys#chicken.time-macro-environment)
diff --git a/lfa2.scm b/lfa2.scm
index 1acf1a3e..71e5d158 100644
--- a/lfa2.scm
+++ b/lfa2.scm
@@ -56,7 +56,6 @@
(define +type-check-map+
'(("C_i_check_closure" procedure)
- ("C_i_check_exact" fixnum bignum integer ratnum) ;; DEPRECATED
("C_i_check_inexact" float) ; Or an inexact cplxnum...
("C_i_check_number" fixnum integer bignum ratnum float cplxnum number)
("C_i_check_string" string)
@@ -71,7 +70,6 @@
("C_i_check_structure" *struct*) ; special case
("C_i_check_char" char)
("C_i_check_closure_2" procedure)
- ("C_i_check_exact_2" fixnum bignum integer ratnum) ;; DEPRECATED
("C_i_check_inexact_2" float) ; Or an inexact cplxnum...
("C_i_check_number_2" fixnum integer bignum ratnum float cplxnum number)
("C_i_check_string_2" string)
diff --git a/library.scm b/library.scm
index 403bc268..16c94133 100644
--- a/library.scm
+++ b/library.scm
@@ -1521,11 +1521,6 @@ EOF
(##core#inline "C_i_check_bytevector_2" x (car loc))
(##core#inline "C_i_check_bytevector" x) ) )
-(define (##sys#check-exact x . loc) ;; DEPRECATED
- (if (pair? loc)
- (##core#inline "C_i_check_exact_2" x (car loc))
- (##core#inline "C_i_check_exact" x) ) )
-
(define (##sys#check-inexact x . loc)
(if (pair? loc)
(##core#inline "C_i_check_inexact_2" x (car loc))
@@ -7618,7 +7613,7 @@ static C_word C_curdir(C_word buf, C_word size) {
;;; Platform configuration inquiry:
(module chicken.platform
- (build-platform chicken-version chicken-home
+ (build-platform chicken-version
feature? machine-byte-order machine-type
repository-path installation-repository
register-feature! unregister-feature! include-path
@@ -7691,9 +7686,6 @@ static C_word C_curdir(C_word buf, C_word size) {
(define-foreign-variable installation-home c-string "C_INSTALL_SHARE_HOME")
(define-foreign-variable install-egg-home c-string "C_INSTALL_EGG_HOME")
-;; DEPRECATED
-(define (chicken-home) installation-home)
-
(define (include-path #!optional new)
(when new
(##sys#check-list new 'include-path)
diff --git a/runtime.c b/runtime.c
index 00fb7c2f..e16ac10a 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2060,12 +2060,6 @@ C_word C_dbg_hook(C_word dummy)
/* Timing routines: */
-/* DEPRECATED */
-C_regparm C_u64 C_milliseconds(void)
-{
- return C_current_process_milliseconds();
-}
-
C_regparm C_u64 C_current_process_milliseconds(void)
{
#if defined(__MINGW32__)
@@ -2946,20 +2940,6 @@ C_word C_closure(C_word **ptr, int cells, C_word proc, ...)
}
-/* obsolete: replaced by C_a_pair in chicken.h */
-C_regparm C_word C_pair(C_word **ptr, C_word car, C_word cdr)
-{
- C_word *p = *ptr,
- *p0 = p;
-
- *(p++) = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1);
- *(p++) = car;
- *(p++) = cdr;
- *ptr = p;
- return (C_word)p0;
-}
-
-
C_regparm C_word C_number(C_word **ptr, double n)
{
C_word
@@ -5354,15 +5334,6 @@ C_regparm C_word C_i_zerop(C_word x)
}
}
-/* DEPRECATED */
-C_regparm C_word C_u_i_zerop(C_word x)
-{
- return C_mk_bool(x == C_fix(0) ||
- (!C_immediatep(x) &&
- C_block_header(x) == C_FLONUM_TAG &&
- C_flonum_magnitude(x) == 0.0));
-}
-
C_regparm C_word C_i_positivep(C_word x)
{
@@ -7220,17 +7191,6 @@ C_regparm C_word C_i_check_fixnum_2(C_word x, C_word loc)
return C_SCHEME_UNDEFINED;
}
-/* DEPRECATED */
-C_regparm C_word C_i_check_exact_2(C_word x, C_word loc)
-{
- if(C_u_i_exactp(x) == C_SCHEME_FALSE) {
- error_location = loc;
- barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_ERROR, NULL, x);
- }
-
- return C_SCHEME_UNDEFINED;
-}
-
C_regparm C_word C_i_check_inexact_2(C_word x, C_word loc)
{
diff --git a/support.scm b/support.scm
index 0615cbb2..118d6526 100644
--- a/support.scm
+++ b/support.scm
@@ -63,7 +63,7 @@
real-name real-name2 display-real-name-table
source-info->string source-info->line source-info->name
call-info constant-form-eval maybe-constant-fold-call
- dump-nodes read/source-info big-fixnum? small-bignum?
+ dump-nodes big-fixnum? small-bignum?
hide-variable export-variable variable-hidden? variable-visible?
mark-variable variable-mark intrinsic? predicate? foldable?
load-identifier-database
@@ -1645,11 +1645,7 @@
(write-char #\]) ) )
(write-char #\>) ) )
(newline) )
-
-
-;; DEPRECATED
-(define (read/source-info in)
- (chicken.syntax#read-with-source-info in) )
+
;;; "#> ... <#" syntax:
diff --git a/types.db b/types.db
index eb0700e1..825ebc4c 100644
--- a/types.db
+++ b/types.db
@@ -1433,7 +1433,6 @@
(chicken.platform#build-platform (#(procedure #:pure) chicken.platform#build-platform () symbol))
(chicken.platform#chicken-version (#(procedure #:pure) chicken.platform#chicken-version (#!optional *) string))
-(chicken.platform#chicken-home (#(procedure #:clean) chicken.platform#chicken-home () string))
(chicken.platform#include-path (#(procedure #:clean) chicken.platform#include-path (#!optional (list-of string)) (list-of string)))
(chicken.platform#feature? (#(procedure #:clean) chicken.platform#feature? (#!rest (or keyword symbol string)) boolean))
(chicken.platform#software-type (#(procedure #:pure) chicken.platform#software-type () symbol))
@@ -1525,9 +1524,6 @@
(##sys#check-bytevector (#(procedure #:clean #:enforce) ##sys#check-bytevector (bytevector #!optional *) *)
((bytevector) (let ((#(tmp) #(1))) '#t))
((bytevector *) (let ((#(tmp) #(1))) '#t)))
-(##sys#check-exact (#(procedure #:clean #:enforce) ##sys#check-exact (fixnum #!optional *) *)
- ((fixnum) (let ((#(tmp) #(1))) '#t))
- ((fixnum *) (let ((#(tmp) #(1))) '#t)))
(##sys#check-inexact (#(procedure #:clean #:enforce) ##sys#check-inexact (float #!optional *) *)
((float) (let ((#(tmp) #(1))) '#t))
((float *) (let ((#(tmp) #(1))) '#t)))
@@ -2470,9 +2466,6 @@
;; version
(chicken.version#version>=? (#(procedure #:pure #:foldable) chicken.version#version>=? (* *) boolean))
-;; Undocumented internal module, only here to have the deprecation warning because some eggs use it
-(chicken.compiler.support#read/source-info deprecated)
-
;; scheme.write
(scheme.write#write (#(procedure #:enforce) scheme.write#write (* #!optional output-port) undefined))
Trap