cs: dsiable srclocs for Rumble in stack trace by default

racket/src/cs/Makefile

@@ -10,7 +10,9 @@ UNSAFE_COMP = --unsafe
 # Controls whether compiled code is compressed:
 COMPRESS_COMP = # --compress
 
-# Controls whether Racket layers are built with expression-level debugging:
+# Controls whether Racket layers are built with expression-level
+# debugging; use "--debug" for expression-level information or
+# "--srcloc" for procedure-level source locations:
 DEBUG_COMP = # --debug
 
 COMPILE_FILE = $(SCHEME) --script compile-file.ss $(UNSAFE_COMP) $(COMPRESS_COMP) $(DEBUG_COMP) --dest "$(BUILDDIR)"

racket/src/cs/compile-file.ss

@@ -59,7 +59,7 @@
 
 (define whole-program? #f)
 (generate-inspector-information #f)
-(generate-procedure-source-information #t)
+(generate-procedure-source-information #f)
 (compile-compressed #f)
 (define build-dir "")
 
@@ -70,6 +70,10 @@
       => (lambda (args)
            (generate-inspector-information #t)
            (loop args))]
+     [(get-opt args "--srcloc" 0)
+      => (lambda (args)
+           (generate-procedure-source-information #f)
+           (loop args))]
      [(get-opt args "--unsafe" 0)
       => (lambda (args)
            (optimize-level 3)