suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make (values x) return just x

Browse Source 
svn: r14420
This commit is contained in:
Eli Barzilay 2009-04-04 18:41:57 +00:00
parent ae73ae1fd4
commit dbc196c246
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/lazy/lazy.ss
View File

@ -160,7 +160,8 @@
(apply values (map ! (multiple-values-values x))) (apply values (map ! (multiple-values-values x)))
x))) x)))
(define* (~values . xs) (make-multiple-values xs)) (define* ~values
(case-lambda [(x) x] [xs (make-multiple-values xs)]))
;; Redefine multiple-value constructs so they split the results ;; Redefine multiple-value constructs so they split the results
(defsubst (~define-values (v ...) body) (defsubst (~define-values (v ...) body)