# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796677835 0
# Node ID f1a876b8bf5cb647db243d7dc82264a83023cc66
# Parent  e1ca77e22c12f7dc78f9f3050ac6ad911f1d4cc7
(scheme-indent-sexp): Don't fail when
calculate-scheme-indent returns a one-element list.

diff -r e1ca77e22c12 -r f1a876b8bf5c lisp/progmodes/scheme.el
--- a/lisp/progmodes/scheme.el	Fri Mar 31 19:16:44 1995 +0000
+++ b/lisp/progmodes/scheme.el	Fri Mar 31 19:23:55 1995 +0000
@@ -500,7 +500,8 @@
 		(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))