22 lines
542 B
Scheme
22 lines
542 B
Scheme
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
; Cf. alt/config.scm
|
||
|
|
|
||
|
|
(define (load-configuration filename . rest)
|
||
|
|
(let ((save filename))
|
||
|
|
(dynamic-wind (lambda () (set! *source-file-name* filename))
|
||
|
|
(lambda ()
|
||
|
|
(apply load filename rest))
|
||
|
|
(lambda () (set! *source-file-name* save)))))
|
||
|
|
(define (%file-name%) *source-file-name*)
|
||
|
|
(define *source-file-name* "")
|
||
|
|
|
||
|
|
|
||
|
|
; ?
|
||
|
|
|
||
|
|
(define-syntax structure-ref
|
||
|
|
(syntax-rules ()
|
||
|
|
((structure-ref ?struct ?name)
|
||
|
|
(*structure-ref ?struct '?name))))
|