Fix empty state check logic

dbgrigsby · Mar 7, 2018 · 687becf · 687becf
1 parent a3a949e
commit 687becf
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git 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
@@ -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))))