From 687becf8ad62c4d29c3fec00072b816364b614e1 Mon Sep 17 00:00:00 2001
From: Adam Beck <akb93@case.edu>
Date: Tue, 6 Mar 2018 22:42:51 -0500
Subject: [PATCH] Fix empty state check logic

---
 .gitignore             | 2 ++
 state-manipulation.scm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 5215c6e..d734e2f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,5 +1,7 @@
 # Created by https://www.gitignore.io/api/scheme,racket
 
+.DS_Store
+
 ### Racket ###
 *.rkt~
 *.rkt.bak
diff --git a/state-manipulation.scm b/state-manipulation.scm
index 937b7f4..96bb4ff 100644
--- a/state-manipulation.scm
+++ b/state-manipulation.scm
@@ -17,7 +17,7 @@
 (define state-empty?
   (lambda (state)
     (cond
-      ((or (null? state) (equal? (get-top-scope state) (get-top-scope initstate))) #t)
+      ((or (null? state) (equal? state initstate)) #t)
       (else #f))))