Don't assume we always get a module

sphippen · Apr 1, 2015 · 396bf14 · 396bf14
1 parent dd53496
commit 396bf14
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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 ())))