From 38a3a0936d758f1a70ff4a2edb00b0d0a62a6fda Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 10 Dec 2013 08:34:57 -0800 Subject: [PATCH] define let*-values as an alias to let-values --- piclib/built-in.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index cc17b2d9..c9cbf88f 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -292,9 +292,15 @@ (,(r 'let-values) (,@(cdr formals)) ,@(cddr form))))))))) + (define-syntax let*-values + (er-macro-transformer + (lambda (form r c) + `(,(r 'let-values) ,@(cdr form))))) + (export values call-with-values - let-values)) + let-values + let*-values)) (import (picrin macro) (picrin core-syntax) @@ -309,7 +315,8 @@ (export values call-with-values - let-values) + let-values + let*-values) (define (any pred list) (if (null? list)