+ Removed record-discloser for env

+ Added record-resumer for env
This commit is contained in:
mainzelm 2001-08-06 09:24:24 +00:00
parent 4aa561b569
commit 9c46dba238
1 changed files with 3 additions and 3 deletions

View File

@ -259,9 +259,9 @@
envvec envvec
alist) ; Corresponding alist alist) ; Corresponding alist
(define-record-discloser type/env (define-record-resumer type/env
(lambda (e) (lambda (env)
(list 'env (env:envvec e) (env:alist e)))) (set-env:envvec env #f)))
(define (env=? e1 e2) (define (env=? e1 e2)
(and (env:envvec e1) (and (env:envvec e1)