Merge branch 'master' of https://github.iu.edu/jsiek/compiler-course

Author: mvitousek

runtime.c

@@ -459,6 +459,7 @@ int any_tag(int64_t any) {
   return any & ANY_TAG_MASK;
 }
 
+/* to do: need to cycle detection. -Jeremy */
 void print_any(int64_t any) {
   switch (any_tag(any)) {
   case ANY_TAG_INT:

tests/s6_9.rkt

@@ -1,4 +1,3 @@
-
 (define (world) : Any (inject 42 Integer))
 
 ; Allocate a vector of 1 any, initialized with an injected 0, and then inject it
@@ -11,7 +10,6 @@
       (let ((a (project x (Vector Any))))
         (project (vector-ref a 0) Integer))))
 
-
 ;; ;; Works
 
 ; Allocate a vector of 1 any, initialized with an injected 0, and then inject it
@@ -45,3 +43,4 @@
 ;;     (let ([y (vector-set! (project x (Vector Any)) 0 (inject (world) Integer))])
 ;;       (let ((a (project x (Vector Any))))
 ;;         (project (vector-ref a 0) Integer))))
+