From 13e7159ed9655d5e78c4483f13d64d5757eb274c Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 9 Mar 2011 15:16:05 -0500
Subject: [PATCH] fixing some of the variable collections

---
 assemble.rkt | 30 +++++++++++++++++++++++++-----
 1 file changed, 25 insertions(+), 5 deletions(-)

diff --git a/assemble.rkt b/assemble.rkt
index 2031534..983f878 100644
--- a/assemble.rkt
+++ b/assemble.rkt
@@ -110,13 +110,33 @@ EOF
   
   (: collect-primitive-operator (PrimitiveOperator -> (Listof Symbol)))
   (define (collect-primitive-operator op)
-    ;; fixme
-    (error 'collect-primitive-operator))
+    (cond
+      [(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)
-    ;; fixme
-    (error 'collect-primitive-command))
+    (cond
+      [(SetToplevel!? op) 
+       empty]
+      [(CheckToplevelBound!? op)
+       empty]
+      [(CheckClosureArity!? op)
+       empty]
+      [(ExtendEnvironment/Prefix!? op)
+       empty]
+      [(InstallClosureValues!? op)
+       empty]))
   
   (unique/eq?
    (let: loop : (Listof Symbol) ([stmts : (Listof Statement) stmts])