scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
scsh-0.6/scheme/opt
History
mainzelm 47b9d6028e 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}
 		2004-02-09 08:21:05 +00:00
..
analyze.scm GC_PROTECT some variables. 2003-05-01 10:21:33 +00:00
flatten.scm Use FORCE-NODE instead of FORCE in case a previous optmizer already 2004-02-09 08:15:48 +00:00
inline.scm Use NAME->SYMBOL to generate formal arguments of lambda nodes that get inlined. 2004-02-09 08:21:05 +00:00
sort.scm GC_PROTECT some variables. 2003-05-01 10:21:33 +00:00
tst.scm GC_PROTECT some variables. 2003-05-01 10:21:33 +00:00
usage.scm GC_PROTECT some variables. 2003-05-01 10:21:33 +00:00