[Scsh-checkins] CVS: scsh-0.6/scheme/opt inline.scm,1.2,1.3

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

Update of /cvsroot/scsh/scsh-0.6/scheme/opt
In directory usw-pr-cvs1:/tmp/cvs-serv24517/scheme/opt

Modified Files:
        inline.scm 
Log Message:
Merged in macro expander changes from Scheme 48 0.56.


Index: inline.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/opt/inline.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** inline.scm  2001/03/25 11:21:58     1.2
--- inline.scm  2001/07/09 14:15:05     1.3
***************
*** 89,93 ****
  (define (unused-name env name)
    (let ((sym (if (generated? name)
!                (generated-symbol name)
                 name)))
      (do ((i 0 (+ i 1))
--- 89,93 ----
  (define (unused-name env name)
    (let ((sym (if (generated? name)
!                (generated-name name)
                 name)))
      (do ((i 0 (+ i 1))
***************
*** 212,216 ****
          (generate-name (qualified-symbol name)
                         (get-qualified-env (generated-env parent)
!                                           (generated-symbol parent))
                         parent))
        (rename name))))
--- 212,216 ----
          (generate-name (qualified-symbol name)
                         (get-qualified-env (generated-env parent)
!                                           (generated-name parent))
                         parent))
        (rename name))))