1; Part of Scheme 48 1.9.  See file COPYING for notices and license.
2
3; Authors: Richard Kelsey, Jonathan Rees
4
5
6; Cf. alt/config.scm
7
8(define (load-configuration filename . rest)
9  (let ((save filename))
10    (dynamic-wind (lambda () (set! *source-file-name* filename))
11		  (lambda ()
12		    (apply load filename rest))
13		  (lambda () (set! *source-file-name* save)))))
14(define (%file-name%) *source-file-name*)
15(define *source-file-name* "")
16
17
18; ?
19
20(define-syntax structure-ref
21  (syntax-rules ()
22    ((structure-ref ?struct ?name)
23     (*structure-ref ?struct '?name))))
24