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" "$@" !#