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

fix bug report 8591

Browse Source 
svn: r5852
This commit is contained in:
Chongkai Zhu 2007-04-01 01:38:00 +00:00
parent 26120baa5b
commit ae9df5db7a
4 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/srfi/71.ss
View File

@ -2,12 +2,14 @@
(module |71| mzscheme
(require (lib "letvalues.ss" "srfi" "71"))
(provide (all-from-except (lib "letvalues.ss" "srfi" "71")
let
let*
letrec
srfi-let
srfi-let*
srfi-letrec
srfi-letrec*)
(rename srfi-let let)
(rename srfi-let* let*)
(rename srfi-letrec letrec)
(rename srfi-letrec* letrec*)))
srfi-letrec))
(provide (rename srfi-let let)
(rename srfi-let* let*)
(rename srfi-letrec letrec)
(rename srfi-letrec letrec*)))

22
collects/srfi/71/letvalues.ss
View File

@ -1,9 +1,9 @@
; Based on Sebastian's reference implementation
; of SRFI-71 using PLT 208's modules
; Reference implementation of SRFI-71 using PLT 208's modules
; Sebastian.Egner@philips.com, 29-Apr-2005
(module letvalues (lib "mzscheme-for-srfi-71-86.ss" "srfi")
(module letvalues mzscheme
;(provide (all-from-except mzscheme let let* letrec))
(provide (all-from mzscheme))
(provide srfi-let
srfi-let*
@ -195,25 +195,25 @@
; --- standard procedures ---
(define (uncons pair)
(s:values (car pair) (cdr pair)))
(values (car pair) (cdr pair)))
(define (uncons-2 list)
(s:values (car list) (cadr list) (cddr list)))
(values (car list) (cadr list) (cddr list)))
(define (uncons-3 list)
(s:values (car list) (cadr list) (caddr list) (cdddr list)))
(values (car list) (cadr list) (caddr list) (cdddr list)))
(define (uncons-4 list)
(s:values (car list) (cadr list) (caddr list) (cadddr list) (cddddr list)))
(values (car list) (cadr list) (caddr list) (cadddr list) (cddddr list)))
(define (uncons-cons alist)
(s:values (caar alist) (cdar alist) (cdr alist)))
(values (caar alist) (cdar alist) (cdr alist)))
(define (unlist list)
(apply s:values list))
(apply values list))
(define (unvector vector)
(apply s:values (vector->list vector)))
(apply values (vector->list vector)))
; --- standard macros ---

4
collects/srfi/86/86.ss
View File

@ -1,4 +1,6 @@
(module |86| (lib "mzscheme-for-srfi-71-86.ss" "srfi")
(module |86| mzscheme
(provide (all-from mzscheme))
(provide mu nu
alet alet*)

3
collects/srfi/mzscheme-for-srfi-71-86.ss
View File

@ -1,3 +0,0 @@
(module mzscheme-for-srfi-71-86 mzscheme
(provide (all-from-except mzscheme values))
(provide (rename values s:values)))