summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index dd347d3..6cf89a9 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -286,10 +286,11 @@ implementation-specific entries for font-lock-keywords.")
(let* ((start (or start 0))
(end (or end (length string)))
(max-lisp-eval-depth (min 20000
- (max max-lisp-eval-depth (- end start)))))
+ (max max-lisp-eval-depth (- end start))))
+ (max-specpdl-size (* 2 max-lisp-eval-depth)))
(with-temp-buffer
(save-excursion (insert string))
- (cons (ignore-errors (geiser-syntax--read)) (point))))))
+ (cons (geiser-syntax--read) (point))))))
(defun geiser-syntax--form-from-string (s)
(car (geiser-syntax--read-from-string s)))