conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

define let*-values as an alias to let-values

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 08:34:57 -08:00
parent 11c0d78957
commit 38a3a0936d
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
piclib/built-in.scm
View File

@ -292,9 +292,15 @@
(,(r 'let-values) (,@(cdr formals)) (,(r 'let-values) (,@(cdr formals))
,@(cddr form))))))))) ,@(cddr form)))))))))
(define-syntax let*-values
(er-macro-transformer
(lambda (form r c)
`(,(r 'let-values) ,@(cdr form)))))
(export values (export values
call-with-values call-with-values
let-values)) let-values
let*-values))
(import (picrin macro) (import (picrin macro)
(picrin core-syntax) (picrin core-syntax)
@ -309,7 +315,8 @@
(export values (export values
call-with-values call-with-values
let-values) let-values
let*-values)
(define (any pred list) (define (any pred list)
(if (null? list) (if (null? list)