scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
mainzelm 2004-02-09 08:21:05 +00:00
parent f5833ad272
commit 47b9d6028e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/opt/inline.scm
View File

@ -87,9 +87,7 @@
; I'm aware that this is pedantic. ; I'm aware that this is pedantic.
(define (unused-name env name) (define (unused-name env name)
(let ((sym (if (generated? name) (let ((sym (name->symbol name)))
(generated-name name)
name)))
(do ((i 0 (+ i 1)) (do ((i 0 (+ i 1))
(name sym (name sym
(string->symbol (string-append (symbol->string sym) (string->symbol (string-append (symbol->string sym)