small code to show why I want source locations

small-lang.rkt

@@ -0,0 +1,14 @@
+#lang racket
+
+
+(provide (except-out (all-from-out racket)
+                     #%app)
+         (rename-out [my-app #%app]))
+
+
+(define-syntax (my-app stx)
+  (syntax-case stx ()
+    [(_ op rand ...)
+     (syntax/loc stx
+       (begin (#%app printf "applying ~e\n" (#%app list op rand ...))
+              (#%app op rand ...)))]))

small-test.rkt

@@ -0,0 +1,8 @@
+#lang s-exp "small-lang.rkt"
+
+
+(require (planet dyoo/chaining-compare))
+
+(printf "hi\n")
+
+(chaining-compare 3 < (+ 2 2) string<? 5 < 6 < 7)