diff --git a/analyze-pure-fncs.scm b/analyze-pure-fncs.scm
index 31361e76..0f56e194 100644
--- a/analyze-pure-fncs.scm
+++ b/analyze-pure-fncs.scm
@@ -38,7 +38,9 @@
      )
      ((quote? exp) exp)
      ((const? exp) #t)
-     ((ref? exp) exp)
+     ((ref? exp) 
+      TODO: if exp is a global, return false
+      exp)
      ((define? exp)
       (return #f))
      ((set!? exp)