49 lines
1.2 KiB
Scheme
49 lines
1.2 KiB
Scheme
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
|
|
|
; Generate filenames.make from *-packages.scm.
|
|
|
|
|
|
; Define DEFINE-STRUCTURE and friends
|
|
(for-each load
|
|
'("scheme/bcomp/module-language.scm"
|
|
"scheme/alt/dummy-interface.scm"
|
|
"scheme/alt/config.scm"
|
|
"scheme/env/flatload.scm"))
|
|
|
|
(load-configuration "scheme/packages.scm")
|
|
|
|
; The following defines are unnecessary; they only serve to suppress
|
|
; annoying "undefined" warnings for some forward references.
|
|
(define methods 0)
|
|
(define tables 0)
|
|
|
|
(flatload linker-structures)
|
|
|
|
(define q-f (all-file-names link-config))
|
|
|
|
; (display "Initial structures") (newline)
|
|
(flatload initial-structures)
|
|
|
|
(define scheme (make-scheme environments evaluation))
|
|
|
|
(define initial-system
|
|
(structure (export)
|
|
(open ;; Cf. initial.scm
|
|
(make-initial-system scheme (make-mini-command scheme))
|
|
module-system
|
|
ensures-loaded
|
|
for-reification))) ;foo...
|
|
|
|
(define i-f (all-file-names initial-system))
|
|
|
|
; (display "Usual structures") (newline)
|
|
(flatload usual-structures)
|
|
|
|
(define u-f (all-file-names usual-features initial-system))
|
|
|
|
(write-file-names "build/filenames.make"
|
|
'initial-files i-f
|
|
'usual-files u-f
|
|
'linker-files q-f)
|
|
|