X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=ast.scm;h=d2328cc6449d014eacb085fdc0b734f620c1ceb2;hp=109ce91a49ff95f7857550c0119f958b90caeefd;hb=e66dabdbc34b1bf5d59cf2596ced19525661a378;hpb=d6b60d54bc90e5ebdc643d05d0b806ae7fd8aa7c

diff --git a/ast.scm b/ast.scm
index 109ce91..d2328cc 100644
--- a/ast.scm
+++ b/ast.scm
@@ -82,6 +82,9 @@
     ['lambda (either (p x)
 		     (inner (lambda-body x)))]
     ['if (either (p x) (any inner (cdr x)))]
+    ['case (either (p x)
+		   (any inner (map cadr (case-cases x)))
+		   (inner (case-switch x)))]
     ['stack (either (p x) (inner (caddr x)))]
     [else (p x)]))