diff --git a/proj3/spec-check.rkt b/proj3/spec-check.rkt index fc13172..37c173b 100644 --- a/proj3/spec-check.rkt +++ b/proj3/spec-check.rkt @@ -71,5 +71,7 @@ [else (list #t else)])) (define (in-spec?/edit tree) - (match-let ([(list in? module) (in-spec?-module/edit (car tree))]) - (list in? (list module)))) + (if (not (null? tree)) + (match-let ([(list in? module) (in-spec?-module/edit (car tree))]) + (list in? (list module))) + '(#f ())))