From 352d32cae6db1fcee0c56bd432880e198d92af48 Mon Sep 17 00:00:00 2001 From: michel-schinz Date: Sun, 14 Mar 2004 14:05:40 +0000 Subject: [PATCH] - removed "configure.scm": from now on the installation library depends on scsh 0.6.6 for its "configure" structure --- scheme/install-lib/configure.scm | 27 --------------------------- scheme/install-lib/install-pkg | 2 +- 2 files changed, 1 insertion(+), 28 deletions(-) delete mode 100644 scheme/install-lib/configure.scm diff --git a/scheme/install-lib/configure.scm b/scheme/install-lib/configure.scm deleted file mode 100644 index 2a39eaa..0000000 --- a/scheme/install-lib/configure.scm +++ /dev/null @@ -1,27 +0,0 @@ -;;; Library to obtain information about the underlying platform. -;;; $Id: configure.scm,v 1.1 2003/12/14 14:46:10 michel-schinz Exp $ - -(define-structure configure (export host) - (open scheme-with-scsh - srfi-13) - (begin - (define (canonical-machine uname-record) - (let* ((machine (uname:machine uname-record)) - (os (uname:os-name uname-record))) - (cond - ((member machine '("i386" "i486" "i586" "i686")) "i386") - ((or (string=? machine "Power Macintosh") - (and (string=? os "AIX") - (regexp-search? (rx (: "00" (= 6 digit) any any "00")) - machine))) - "powerpc") - (else machine)))) - - (define (canonical-os-name uname-record) - (string-downcase (uname:os-name uname-record))) - - (define (host) - (let ((uname-record (uname))) - (string-append (canonical-machine uname-record) - "-" - (canonical-os-name uname-record)))))) diff --git a/scheme/install-lib/install-pkg b/scheme/install-lib/install-pkg index 58023dd..8edafc6 100755 --- a/scheme/install-lib/install-pkg +++ b/scheme/install-lib/install-pkg @@ -1,3 +1,3 @@ #!/bin/sh -exec scsh -lm configure.scm -lm install-lib-module.scm -o pp -o configure -o install -e install-main -s "$0" "$@" +exec scsh -lm install-lib-module.scm -o pp -o configure -o install -e install-main -s "$0" "$@" !#