fix bug report 8588
svn: r5845
This commit is contained in:
parent
615f6e0454
commit
a31d421ede
|
@ -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 ---
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
(module |86| mzscheme
|
||||
(module |86| (lib "mzscheme-for-srfi-71-86.ss" "srfi")
|
||||
|
||||
(provide mu nu
|
||||
alet alet*)
|
||||
|
|
3
collects/srfi/mzscheme-for-srfi-71-86.ss
Normal file
3
collects/srfi/mzscheme-for-srfi-71-86.ss
Normal file
|
@ -0,0 +1,3 @@
|
|||
(module mzscheme-for-srfi-71-86 mzscheme
|
||||
(provide (all-from-except mzscheme values))
|
||||
(provide (rename values s:values)))
|
|
@ -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"))
|
Loading…
Reference in New Issue
Block a user