update

Task/Stack-traces/Racket/stack-traces.rkt

@@ -0,0 +1,17 @@
+#lang racket
+
+;; To see these calls we do two things: mutate the binding to prevent
+;; Racket from inlining the value; use a (void) call at the end so the
+;; calls are not tail calls (which will otherwise not show on the
+;; stack).
+(define foo #f)
+(set! foo (λ() (bar) (void)))
+(define bar #f)
+(set! bar (λ() (show-stacktrace) (void)))
+
+(define (show-stacktrace)
+  (for ([s (continuation-mark-set->context (current-continuation-marks))]
+        [i (in-naturals)])
+    ;; show just the names, not the full source information
+    (when (car s) (printf "~s: ~s\n" i (car s)))))
+(foo)

Task/Stack-traces/Raven/stack-traces.raven

@@ -0,0 +1 @@
+ [1 2 3 4] 42 { 'a' 1 'b' 2 'c' 3 } 34.1234 ( -1 -2 -3 )  "The quick brown fox" FILE dump