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

10
collects/srfi/71.ss
View File

@ -2,12 +2,14 @@
(module |71| mzscheme (module |71| mzscheme
(require (lib "letvalues.ss" "srfi" "71")) (require (lib "letvalues.ss" "srfi" "71"))
(provide (all-from-except (lib "letvalues.ss" "srfi" "71") (provide (all-from-except (lib "letvalues.ss" "srfi" "71")
let
let*
letrec
srfi-let srfi-let
srfi-let* srfi-let*
srfi-letrec srfi-letrec))
srfi-letrec*) (provide (rename srfi-let let)
(rename srfi-let let)
(rename srfi-let* let*) (rename srfi-let* let*)
(rename srfi-letrec letrec) (rename srfi-letrec letrec)
(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 ; Reference implementation of SRFI-71 using PLT 208's modules
; 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 (provide srfi-let
srfi-let* srfi-let*
@ -195,25 +195,25 @@
; --- standard procedures --- ; --- standard procedures ---
(define (uncons pair) (define (uncons pair)
(s:values (car pair) (cdr pair))) (values (car pair) (cdr pair)))
(define (uncons-2 list) (define (uncons-2 list)
(s:values (car list) (cadr list) (cddr list))) (values (car list) (cadr list) (cddr list)))
(define (uncons-3 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) (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) (define (uncons-cons alist)
(s:values (caar alist) (cdar alist) (cdr alist))) (values (caar alist) (cdar alist) (cdr alist)))
(define (unlist list) (define (unlist list)
(apply s:values list)) (apply values list))
(define (unvector vector) (define (unvector vector)
(apply s:values (vector->list vector))) (apply values (vector->list vector)))
; --- standard macros --- ; --- 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 (provide mu nu
alet alet*) 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)))