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)