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))))