(scheme-indent-sexp): Don't fail when

calculate-scheme-indent returns a one-element list.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index d2ea8c1d418..8393f2c3d6f 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -500,7 +500,8 @@ of the start of the containing expression."
                 (if (integerp val)
                     (setcar indent-stack
                             (setq this-indent val))
-                  (setcar indent-stack (- (car (cdr val))))
+                  (if (cdr val)
+                      (setcar indent-stack (- (car (cdr val)))))
                   (setq this-indent (car val)))))
             (if (/= (current-column) this-indent)
                 (progn (delete-region bol (point))