~ chicken-core (chicken-5) 49311bb4eb067197f9ba24a6ecf000d23524f20a
commit 49311bb4eb067197f9ba24a6ecf000d23524f20a
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Sun Jan 7 20:13:31 2018 +0100
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sun Jan 7 20:13:31 2018 +0100
Clean up some unnecessary "chicken" imports
diff --git a/library.scm b/library.scm
index d696fc03..903ee68d 100644
--- a/library.scm
+++ b/library.scm
@@ -5939,7 +5939,7 @@ static C_word C_fcall C_setenv(C_word x, C_word y) {
(import scheme)
(import chicken.base chicken.fixnum chicken.foreign)
-(import (only chicken unless)) ; FIXME
+(import chicken.internal.syntax)
;;; Current directory access:
@@ -6411,9 +6411,7 @@ static C_word C_fcall C_setenv(C_word x, C_word y) {
(import scheme)
(import chicken.fixnum chicken.foreign chicken.keyword chicken.process-context)
(import chicken.internal.syntax)
-
-(import (only chicken make-parameter))
-(import (only chicken when unless define-constant))
+(import (only (chicken base) make-parameter))
(define software-type
(let ((sym (string->symbol ((##core#primitive "C_software_type")))))
Trap