From 4bcf43b4e1dcccc2abb80c93bfc226f140b4c3fd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 2 Oct 2001 18:51:54 +0000 Subject: [PATCH] Add binding for UNBIND-VARIABLE. --- v7/src/runtime/global.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm index 0ad37fad0..e955003cc 100644 --- a/v7/src/runtime/global.scm +++ b/v7/src/runtime/global.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: global.scm,v 14.53 2001/08/09 03:04:44 cph Exp $ +$Id: global.scm,v 14.54 2001/10/02 18:51:54 cph Exp $ Copyright (c) 1988-2001 Massachusetts Institute of Technology @@ -236,6 +236,9 @@ USA. (define (environment-link-name target-environment source-environment name) ;; Obsolete; for backwards compatibility. (link-variables target-environment name source-environment name)) + +(define (unbind-variable environment name) + ((ucode-primitive unbind-variable 2) (->environment environment) name)) (define-integrable (object-non-pointer? object) (zero? (object-gc-type object))) -- 2.25.1