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

typo in last commit

Browse Source 
svn: r8991
This commit is contained in:
Eli Barzilay 2008-03-16 15:31:16 +00:00
parent 5649006dac
commit ca7586e09f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/srfi/1/util.ss
View File

@ -34,8 +34,7 @@
#lang mzscheme #lang mzscheme
(require srfi/optional (require "predicate.ss"
"predicate.ss"
"selector.ss") "selector.ss")
(provide %cdrs (provide %cdrs
@ -82,7 +81,7 @@
;; However, if any of the lists is empty, just abort and return [() ()]. ;; However, if any of the lists is empty, just abort and return [() ()].
(define (%cars+cdrs lists) (define (%cars+cdrs lists)
(let/ec (let/ec abort
(let recur ((lists lists)) (let recur ((lists lists))
(if (pair? lists) (if (pair? lists)
(let-values ([(list other-lists) (car+cdr lists)]) (let-values ([(list other-lists) (car+cdr lists)])