+ Removed record-discloser for env

+ Added record-resumer for env
2001-08-06 09:24:24 +00:00 · 2001-08-06 09:24:24 +00:00 · 9c46dba238
parent 4aa561b569
commit 9c46dba238
1 changed files with 3 additions and 3 deletions
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@ -259,9 +259,9 @@
      envvec
      alist)	; Corresponding alist

-(define-record-discloser type/env
-  (lambda (e)
-    (list 'env (env:envvec e) (env:alist e))))
+(define-record-resumer type/env
+  (lambda (env)
+    (set-env:envvec env #f)))

 (define (env=? e1 e2)
  (and (env:envvec e1)