| 12345678910111213141516171819202122232425262728293031323334353637 |
- ; Part of Scheme 48 1.9. See file COPYING for notices and license.
- ; Authors: Richard Kelsey, Jonathan Rees
- (define (link-simple-system filename resumer-exp . structs)
- (link-system structs (lambda () resumer-exp) filename))
- (define (link-reified-system some filename make-resumer-exp . structs)
- (link-system (append structs (map cdr some))
- (lambda ()
- (display "Reifying") (newline)
- `(,make-resumer-exp
- (lambda ()
- ,(reify-structures some
- (lambda (loc) loc)
- `(lambda (loc) loc)))))
- filename))
- (define (link-system structs make-resumer filename)
- (for-each ensure-loaded structs)
- (let* ((p (make-simple-package structs eval #f))
- (r (eval (make-resumer) p)))
- ;; (check-package p)
- r))
- ;(define (check-package p)
- ; (let ((names (undefined-variables p)))
- ; (if (not (null? names))
- ; (begin (display "Undefined: ")
- ; (write names) (newline)))))
- (define-syntax struct-list
- (syntax-rules ()
- ((struct-list name ...) (list (cons 'name name) ...))))
|
