diff options
Diffstat (limited to 'compile.scm')
| -rwxr-xr-x | compile.scm | 55 |
1 files changed, 15 insertions, 40 deletions
diff --git a/compile.scm b/compile.scm index 2cd9170..06aa956 100755 --- a/compile.scm +++ b/compile.scm @@ -1,51 +1,26 @@ #! /bin/sh :;exec scm -e"(set! *script* \"$0\")" -f$0 "$@" - +;;;; "compile.scm", Compile C ==> Scheme ==> object-file. ;; Copyright (C) 1992-2002 Free Software Foundation, Inc. ;; -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. -;; -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. -;; -;; You should have received a copy of the GNU General Public License -;; along with this software; see the file COPYING. If not, write to -;; the Free Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111, USA. +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU Lesser General Public License as +;; published by the Free Software Foundation, either version 3 of the +;; License, or (at your option) any later version. ;; -;; As a special exception, the Free Software Foundation gives permission -;; for additional uses of the text contained in its release of SCM. +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; Lesser General Public License for more details. ;; -;; The exception is that, if you link the SCM library with other files -;; to produce an executable, this does not by itself cause the -;; resulting executable to be covered by the GNU General Public License. -;; Your use of that executable is in no way restricted on account of -;; linking the SCM library code into it. -;; -;; This exception does not however invalidate any other reasons why -;; the executable file might be covered by the GNU General Public License. -;; -;; This exception applies only to the code released by the -;; Free Software Foundation under the name SCM. If you copy -;; code from other Free Software Foundation releases into a copy of -;; SCM, as the General Public License permits, the exception does -;; not apply to the code that you add in this way. To avoid misleading -;; anyone as to the status of such modified files, you must delete -;; this exception notice from them. -;; -;; If you write modifications of your own for SCM, it is your choice -;; whether to permit this exception to apply to your modifications. -;; If you do not wish that, delete this exception notice. +;; You should have received a copy of the GNU Lesser General Public +;; License along with this program. If not, see +;; <http://www.gnu.org/licenses/>. -;;;; "compile.scm", Compile C ==> Scheme ==> object-file. ;;; Author: Aubrey Jaffer. (require-if 'compiling 'hobbit) -(require-if 'compiling 'glob) +(require-if 'compiling 'filename) (require-if 'compiling 'build) (define (compile.scm args) @@ -84,7 +59,7 @@ http://swiss.csail.mit.edu/~jaffer/SCM ;@ (define (compile-file file . args) (define sfs (scheme-file-suffix)) - (require 'glob) + (require 'filename) (apply hobbit file args) (let ((command (apply list @@ -100,7 +75,7 @@ http://swiss.csail.mit.edu/~jaffer/SCM ;@ (define (compile->executable exename . files) (define sfs (scheme-file-suffix)) - (require 'glob) + (require 'filename) (for-each hobbit files) (let ((inits (map (lambda (file) (string-append "-iinit_" (replace-suffix file sfs ""))) |