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}
This commit is contained in:
parent
f5833ad272
commit
47b9d6028e
|
@ -87,9 +87,7 @@
|
|||
; I'm aware that this is pedantic.
|
||||
|
||||
(define (unused-name env name)
|
||||
(let ((sym (if (generated? name)
|
||||
(generated-name name)
|
||||
name)))
|
||||
(let ((sym (name->symbol name)))
|
||||
(do ((i 0 (+ i 1))
|
||||
(name sym
|
||||
(string->symbol (string-append (symbol->string sym)
|
||||
|
|
Loading…
Reference in New Issue