From 396bf14facc15169f4e0895266a6c387704b7a46 Mon Sep 17 00:00:00 2001 From: Josh Kunz Date: Tue, 31 Mar 2015 20:16:31 -0600 Subject: [PATCH] Don't assume we always get a module --- proj3/spec-check.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 ())))