← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mit-scheme/intrepid-updates

« back to all changes in this revision

Viewing changes to src/edwin/make.scm

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2002-03-14 17:04:07 UTC
  • Revision ID: james.westby@ubuntu.com-20020314170407-m5lg1d6bdsl9lv0s
Tags: upstream-7.7.0
Import upstream version 7.7.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/edwin/make.scm
 
1
#| -*-Scheme-*-
 
2
 
 
3
$Id: make.scm,v 3.114 2002/02/03 04:31:55 cph Exp $
 
4
 
 
5
Copyright (c) 1989-2002 Massachusetts Institute of Technology
 
6
 
 
7
This program is free software; you can redistribute it and/or modify
 
8
it under the terms of the GNU General Public License as published by
 
9
the Free Software Foundation; either version 2 of the License, or (at
 
10
your option) any later version.
 
11
 
 
12
This program is distributed in the hope that it will be useful, but
 
13
WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
15
General Public License for more details.
 
16
 
 
17
You should have received a copy of the GNU General Public License
 
18
along with this program; if not, write to the Free Software
 
19
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
20
02111-1307, USA.
 
21
|#
 
22
 
 
23
;;;; Edwin: System Construction
 
24
 
 
25
(declare (usual-integrations))
 
26
 
 
27
(with-working-directory-pathname
 
28
    (directory-pathname (current-load-pathname))
 
29
  (lambda ()
 
30
    ((access with-directory-rewriting-rule
 
31
             (->environment '(RUNTIME COMPILER-INFO)))
 
32
     (working-directory-pathname)
 
33
     (pathname-as-directory "edwin")
 
34
     (lambda ()
 
35
       (declare-shared-library "edwin" (lambda () #t))
 
36
       (load-package-set "edwin"
 
37
         `((alternate-package-loader
 
38
            . ,(load "edwin.bld" system-global-environment))))))))
 
39
(add-identification! "Edwin" 3 112)
 
 
b'\\ No newline at end of file'