`let-values' in scheme.el

[Peter Danenberg]

`let-values' and `let*-values' (see SRFI 11) are control structures
similar to `let', `let*' and the like; and come up often enough that
they deserve to be treated similarly.


diff -Naur emacs-orig/lisp/progmodes/scheme.el emacs/lisp/progmodes/scheme.el
--- emacs-orig/lisp/progmodes/scheme.el 2008-02-21 15:30:14.000000000 -0800
+++ emacs/lisp/progmodes/scheme.el      2008-02-21 15:50:31.000000000 -0800
@@ -334,6 +334,7 @@
               "call-with-input-file" "call-with-output-file" "case" "cond"
               "do" "else" "for-each" "if" "lambda"
               "let" "let*" "let-syntax" "letrec" "letrec-syntax"
+               "let-values" "let*-values"
               ;; Hannes Haug <address@hidden> wants:
               "and" "or" "delay" "force"
               ;; Stefan Monnier <address@hidden> says don't bother:
@@ -541,6 +542,8 @@
 (put 'let 'scheme-indent-function 'scheme-let-indent)
 (put 'let* 'scheme-indent-function 1)
 (put 'letrec 'scheme-indent-function 1)
+(put 'let-values 'scheme-indent-function 1) ; SRFI 11
+(put 'let*-values 'scheme-indent-function 1) ; SRFI 11
 (put 'sequence 'scheme-indent-function 0) ; SICP, not r4rs
 (put 'let-syntax 'scheme-indent-function 1)
 (put 'letrec-syntax 'scheme-indent-function 1)