X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=0b48ed34e1dd29f2e0f5a96bb98594fdeb227db6;hp=f0c0d15373ff150a29f291f56d89b23f9050c276;hb=d11a1ea1567dd40eec6d281b6d2836dd4d79b271;hpb=b79d2d62763dafc48ce669b89f4bff29242a6361

diff --git a/swank.R b/swank.R
index f0c0d15..0b48ed3 100644
--- a/swank.R
+++ b/swank.R
@@ -425,7 +425,12 @@ computeRestartsForEmacs <- function (sldbState) {
   objs <- ls(envir=frame)
   list(lapply(objs, function(name) { list(quote(`:name`), name,
                                           quote(`:id`), 0,
-                                          quote(`:value`), printToString(eval(parse(text=name), envir=frame))) }),
+                                          quote(`:value`),
+                                          tryCatch({
+                                            printToString(eval(parse(text=name), envir=frame))
+                                          }, error=function(c) {
+                                            sprintf("error printing object")
+                                          }))}),
        list())
 }