diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/op.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/op.tl b/share/txr/stdlib/op.tl index b3b3a74b..d496249c 100644 --- a/share/txr/stdlib/op.tl +++ b/share/txr/stdlib/op.tl @@ -24,6 +24,8 @@ ;; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +(defvar sys:*op-ctx*) + (sys:make-struct-type 'sys:op-ctx nil nil '(form gens up meta) nil (lambda (me) @@ -31,8 +33,6 @@ (slotset me 'meta (gensym "meta-"))) nil nil) -(defvar sys:*op-ctx*) - (defun sys:ensure-op-arg (ctx n) (let ((ag (slot ctx 'gens))) (when (> n 1024) |