scsh-0.6/scheme/alt/init-defpackage.scm

15 lines
509 B
Scheme
Raw Normal View History

1999-09-14 08:45:02 -04:00
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
; This file should be loaded into the bootstrap linker before any use
; of DEFINE-STRUCTURE. Compare with env/init-defpackage.scm.
(define-reflective-tower-maker
(lambda (clauses names)
(let ((env (interaction-environment)))
(delay
(begin (if (not (null? clauses))
(warn "a FOR-SYNTAX clause appears in a package being linked by the cross-linker"
`(for-syntax ,@clauses)))
(cons eval env))))))