+ Removed record-discloser for env
+ Added record-resumer for env
This commit is contained in:
parent
4aa561b569
commit
9c46dba238
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue