suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing some of the variable collections

Browse Source
This commit is contained in:
Danny Yoo 2011-03-09 15:16:05 -05:00
parent f53c96abc5
commit 13e7159ed9
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
assemble.rkt
View File

@ -110,13 +110,33 @@ EOF
(: collect-primitive-operator (PrimitiveOperator -> (Listof Symbol))) (: collect-primitive-operator (PrimitiveOperator -> (Listof Symbol)))
(define (collect-primitive-operator op) (define (collect-primitive-operator op)
;; fixme (cond
(error 'collect-primitive-operator)) [(GetCompiledProcedureEntry? op)
empty]
[(MakeCompiledProcedure? op)
(list (MakeCompiledProcedure-label op))]
[(ApplyPrimitiveProcedure? op)
empty]
[(LookupLexicalAddress? op)
empty]
[(LookupToplevelAddress? op)
empty]
[(GetControlStackLabel? op)
empty]))
(: collect-primitive-command (PrimitiveCommand -> (Listof Symbol)))
(define (collect-primitive-command op) (define (collect-primitive-command op)
;; fixme (cond
(error 'collect-primitive-command)) [(SetToplevel!? op)
empty]
[(CheckToplevelBound!? op)
empty]
[(CheckClosureArity!? op)
empty]
[(ExtendEnvironment/Prefix!? op)
empty]
[(InstallClosureValues!? op)
empty]))
(unique/eq? (unique/eq?
(let: loop : (Listof Symbol) ([stmts : (Listof Statement) stmts]) (let: loop : (Listof Symbol) ([stmts : (Listof Statement) stmts])