[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH] Drop extension-information
From: |
Evan Hanson |
Subject: |
[Chicken-hackers] [PATCH] Drop extension-information |
Date: |
Mon, 1 May 2017 17:54:10 +1200 |
---
chicken-install.scm | 8 +++-----
chicken.import.scm | 1 -
library.scm | 16 +---------------
manual/Unit eval | 8 --------
types.db | 1 -
5 files changed, 4 insertions(+), 30 deletions(-)
diff --git a/chicken-install.scm b/chicken-install.scm
index 51c406d9..05f26003 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -40,7 +40,6 @@
(import (chicken io))
(import (chicken time))
(import (chicken pathname))
-(import (chicken platform))
(import (chicken process))
(import (chicken pretty-print))
@@ -732,10 +731,9 @@
(cadr a) (car a) (cdr e))))
#f))
(else
- (conc " " (car e)
- " (" (let ((v (assq 'version
(extension-information (car e)))))
- (if v (cadr v) "unknown"))
- " -> " (cdr e) ")" #\newline))))
+ (conc " " (car e) " ("
+ (or (ext-version (car e)) "unknown") " -> " (cdr
e)
+ ")" #\newline))))
upgrade))
""))
(let loop ()
diff --git a/chicken.import.scm b/chicken.import.scm
index c2eda1c3..359f5b4f 100644
--- a/chicken.import.scm
+++ b/chicken.import.scm
@@ -66,7 +66,6 @@
exit
exit-handler
(expand . chicken.expand#expand)
- (extension-information . chicken.platform#extension-information)
(feature? . chicken.platform#feature?)
(features . chicken.platform#features)
file-exists?
diff --git a/library.scm b/library.scm
index 071d85dc..2b98ae93 100644
--- a/library.scm
+++ b/library.scm
@@ -5754,7 +5754,7 @@ EOF
;;; Platform configuration inquiry:
(module chicken.platform
- (build-platform chicken-version chicken-home extension-information
+ (build-platform chicken-version chicken-home
feature? features machine-byte-order machine-type
repository-path installation-repository
register-feature! unregister-feature!
@@ -5844,20 +5844,6 @@ EOF
(get-environment-variable "CHICKEN_INSTALL_REPOSITORY")
install-egg-home)))
-(define extension-information
- (let ((with-input-from-file with-input-from-file)
- (string-append string-append)
- (read read))
- (lambda (id)
- (and-let* ((rp (repository-path)))
- (let ((p (##sys#canonicalize-extension-path
- id 'extension-information)))
- (let loop ((rp (##sys#split-path rp)))
- (cond ((null? rp) #f)
- ((file-exists? (string-append (car rp) "/" p "."
- setup-file-extension))
- => (cut with-input-from-file <> read))
- (else (loop (cdr rp))))))))))
;;; Feature identifiers:
diff --git a/manual/Unit eval b/manual/Unit eval
index e00964a7..25e863b8 100644
--- a/manual/Unit eval
+++ b/manual/Unit eval
@@ -137,14 +137,6 @@ Contains the name of the directory where extensions are
installed
(as opposed to the possible locations where they can be loaded or
linked at runtime.)
-==== extension-information
-
-<procedure>(extension-information ID)</procedure>
-
-If an extension with the name {{ID}} is installed and if it has a
setup-information
-list registered in the extension repository, then the info-list is returned.
Otherwise
-{{extension-information}} returns {{#f}}.
-
==== require
<procedure>(require ID ...)</procedure>
diff --git a/types.db b/types.db
index 562b85cc..2894975b 100644
--- a/types.db
+++ b/types.db
@@ -1217,7 +1217,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#extension-information (#(procedure #:clean)
chicken.platform#extension-information (symbol) *))
(chicken.platform#feature? (#(procedure #:clean) chicken.platform#feature?
(#!rest symbol) boolean))
(chicken.platform#features (#(procedure #:clean) chicken.platform#features ()
(list-of symbol)))
(chicken.platform#software-type (#(procedure #:pure)
chicken.platform#software-type () symbol))
--
2.11.0