[Scsh-checkins] CVS: scsh-0.6/scsh scsh.scm,1.18,1.19

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv13873

Modified Files:
        scsh.scm 
Log Message:
+ Removed record-discloser for env
+ Added record-resumer for env


Index: scsh.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh.scm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** scsh.scm    2001/08/06 08:33:24     1.18
--- scsh.scm    2001/08/06 09:24:24     1.19
***************
*** 260,266 ****
        alist)  ; Corresponding alist
  
! (define-record-discloser type/env
!   (lambda (e)
!     (list 'env (env:envvec e) (env:alist e))))
  
  (define (env=? e1 e2)
--- 260,266 ----
        alist)  ; Corresponding alist
  
! (define-record-resumer type/env
!   (lambda (env)
!     (set-env:envvec env #f)))
  
  (define (env=? e1 e2)