~ chicken-core (chicken-5) 38eba685aff02ae81cadead7076cb2920c8af089
commit 38eba685aff02ae81cadead7076cb2920c8af089
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jan 28 11:53:02 2015 +0100
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Wed Jan 28 11:53:02 2015 +0100
Removed more references to srfi-1 unit.
diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 244651ef..31608bcd 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -766,7 +766,6 @@
(if (fx>= i n)
'()
(cons (r (gensym)) (loop (fx+ i 1))) ) ) )
- (require 'srfi-1) ; ugh...
(let* ((mincount (apply min (map (lambda (c)
(##sys#decompose-lambda-list
(car c)
diff --git a/csc.scm b/csc.scm
index 4fcb6f0f..0b059420 100644
--- a/csc.scm
+++ b/csc.scm
@@ -27,7 +27,7 @@
(declare
(block)
- (uses data-structures ports srfi-1 utils files extras))
+ (uses data-structures ports utils files extras))
(include "mini-srfi-1.scm")
diff --git a/eval.scm b/eval.scm
index 7b86c4d6..ff047a84 100644
--- a/eval.scm
+++ b/eval.scm
@@ -61,7 +61,7 @@
(define-foreign-variable install-lib-name c-string "C_INSTALL_LIB_NAME")
(define ##sys#core-library-modules
- '(extras lolevel utils files tcp irregex posix srfi-1 srfi-4
+ '(extras lolevel utils files tcp irregex posix srfi-4
data-structures ports))
(define ##sys#core-syntax-modules
diff --git a/setup-api.scm b/setup-api.scm
index cefa31ba..566c1350 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -24,7 +24,7 @@
; POSSIBILITY OF SUCH DAMAGE.
-(require-library srfi-1 irregex utils posix extras ports data-structures files)
+(require-library irregex utils posix extras ports data-structures files)
; This code is partially quite messy and the API is not overly consistent,
; mainly because it has grown "organically" while the old chicken-setup program
@@ -67,7 +67,7 @@
(import scheme chicken foreign
irregex utils posix ports extras data-structures
- srfi-1 files)
+ files)
;;; Constants, variables and parameters
diff --git a/setup-download.scm b/setup-download.scm
index ba77037d..956d163d 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -24,7 +24,7 @@
; POSSIBILITY OF SUCH DAMAGE.
-(require-library extras irregex posix utils setup-api srfi-1 data-structures tcp
+(require-library extras irregex posix utils setup-api data-structures tcp
files)
@@ -37,7 +37,7 @@
temporary-directory)
(import scheme chicken foreign)
- (import extras irregex posix utils srfi-1 data-structures tcp files
+ (import extras irregex posix utils data-structures tcp files
setup-api)
(define-constant +default-tcp-connect-timeout+ 30000) ; 30 seconds
Trap