From f020fafd7c2c6dced10c15c3f6e709a9238d36ee Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Tue, 5 Mar 2013 17:33:16 -0700
Subject: [PATCH] whoa.  recursive macro is bad.

---
 whalesong/lang/private/traced-app.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/whalesong/lang/private/traced-app.rkt b/whalesong/lang/private/traced-app.rkt
index 738ee4b..1dbbb16 100644
--- a/whalesong/lang/private/traced-app.rkt
+++ b/whalesong/lang/private/traced-app.rkt
@@ -21,5 +21,6 @@
          (syntax/loc stx
            (with-continuation-mark key 'pos
                                    (#%plain-app operator operands ...))))]
-      [else
-       stx])))
+      [(_)
+       (syntax/loc stx
+         (#%app))])))