From df93054d18827454fb8a35efbc98603e5b60c578 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 13 Jan 2019 08:38:40 -0700
Subject: [PATCH] cs: dsiable srclocs for Rumble in stack trace by default

---
 racket/src/cs/Makefile        | 4 +++-
 racket/src/cs/compile-file.ss | 6 +++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/racket/src/cs/Makefile b/racket/src/cs/Makefile
index caecca02f3..18b4743f01 100644
--- a/racket/src/cs/Makefile
+++ b/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)"
diff --git a/racket/src/cs/compile-file.ss b/racket/src/cs/compile-file.ss
index 96a2faa2f0..4c0d85ee49 100644
--- a/racket/src/cs/compile-file.ss
+++ b/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)