From 4bae7a87342e7c464e3f2c474656661325db5951 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Fri, 13 Aug 2010 17:10:16 +0100
Subject: [PATCH] return stack frames in slime's order (most recent first)

---
 swank.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/swank.R b/swank.R
index dc5cbd1..c6a1ec2 100644
--- a/swank.R
+++ b/swank.R
@@ -69,7 +69,7 @@ sldbLoop <- function(io, sldbState, id) {
 
 debuggerInfoForEmacs <- function(sldbState, from=0, to=NULL) {
   backtraceForEmacs <- function() {
-    calls <- sys.calls()
+    calls <- rev(sys.calls())
     if(is.null(to)) to <- length(calls)
     from <- from+1
     calls <- lapply(calls[from:to], { frameNumber <- from-1;
-- 
2.39.5