[Scsh-checkins] scsh/scheme/opt inline.scm

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

Update of /cvsroot/scsh/scsh/scheme/opt
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9145/scheme/opt

Modified Files:
      Tag: r0-6-stable
        inline.scm 
Log Message:
Use NAME->SYMBOL to generate formal arguments of lambda nodes that get inlined.

Test case is:

,config (define-structure foo (export)
  (open scheme
        finite-types)
  (optimize auto-integrate)
  (begin
   (define-enumerated-type afs-permission :afs-permission
     afs-permission?
     the-afs-permissions
     afs-permission-name
     afs-permission-index
     (read))))

> ,config (define-structure foo (export)
  (open scheme
        finite-types)
  (optimize auto-integrate)
  (begin
   (define-enumerated-type afs-permission :afs-permission
     afs-permission?
     the-afs-permissions
     afs-permission-name
     afs-permission-index
     (read))))
> ,in foo the-afs-permissions
Load structure foo (y/n)? y
[foo
Analyzing... 
Calls will be compiled in line: (#{Generated maker 1408} afs-permission-index 
afs-permission-name)
]
'#(#{Afs-permission #{Generated name 1408}})
> ,inspect

 [0] '#{Afs-permission #{Generated name 1408}}
inspect: 0
'#{Afs-permission #{Generated name 1408}}

 [0: name] '#{Generated name 1408}
 [1: index] '#{Generated index 1408}