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 |