; Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees. See file COPYING.

; backwards compatibility for PreScheme compiler

; Of course, this really creates a *syntactic* tower.
(define (make-reflective-tower _eval structs id)
  (assert (eq? _eval eval))
  (vector compile-syntax-node
	  (make-lookup-package-maker ensure-instantiated)
	  (list (cons 1 (delay structs)))))

