scsh-0.5/alt/init-defpackage.scm

15 lines
508 B
Scheme
Raw Normal View History

1995-10-13 23:34:21 -04:00
; Copyright (c) 1993, 1994 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))))))