fix bug report 8588

svn: r5845
This commit is contained in:
Chongkai Zhu 2007-03-30 04:40:03 +00:00
parent 615f6e0454
commit a31d421ede
4 changed files with 18 additions and 11 deletions

View File

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

View File

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

View File

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

View File

@ -37,6 +37,8 @@
(require (lib "71.ss" "srfi"))
(require (lib "74.ss" "srfi"))
(require (lib "78.ss" "srfi"))
(require (lib "86.ss" "srfi"))
(require (lib "87.ss" "srfi"))
(require (lib "list.ss" "srfi" "1"))
(require (lib "time.ss" "srfi" "19"))
@ -72,3 +74,5 @@
(require (lib "letvalues.ss" "srfi" "71"))
(require (lib "74.ss" "srfi" "74"))
(require (lib "check.ss" "srfi" "78"))
(require (lib "86.ss" "srfi" "86"))
(require (lib "case.ss" "srfi" "87"))