From 55a2d84c2b11cb6637d80878b29fa36911d80873 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 2 Mar 2015 23:02:16 -0500
Subject: [PATCH] WIP

---
 eval.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/eval.scm b/eval.scm
index ba990ff1..8461e589 100644
--- a/eval.scm
+++ b/eval.scm
@@ -359,6 +359,10 @@
         ((cond? exp) (analyze (cond->if exp)))
       ;; END derived expression processing
         ((application? exp) (analyze-application exp))
+;; TODO:        ;; JAE - testing with these next 3
+;; TODO:        ((primitive-procedure? exp) exp)
+;; TODO:        ((compound-procedure? exp) exp)
+;; TODO:        ((procedure? exp) exp)
         (else
          (error "Unknown expression type -- ANALYZE" exp))))
          ;(lambda () 'TODO-unknown-exp-type)))) ; JAE - this is a debug line