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

release

Browse Source 
original commit: 63f4581f557b5eb20c9aedb37651a06c207c316f
This commit is contained in:
Matthew Flatt 1997-08-18 19:18:29 +00:00
parent 5cdd3f7b60
commit fa767439a0
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/functior.ss
View File

@ -171,7 +171,10 @@
[(f init l) (fold-one f init l)]
[(f init l . ls) (fold-n f init (cons l ls))]))))
(define first (polymorphic (lambda (x) (car x))))
(define first (polymorphic (lambda (x)
(unless (pair? x)
(raise-type-error 'first "list" x))
(car x))))
(define second (polymorphic cadr))
(define third (polymorphic caddr))
(define fourth (polymorphic cadddr))
@ -180,8 +183,11 @@
(define seventh (polymorphic (compose fourth cdddr)))
(define eighth (polymorphic (compose fourth cddddr)))
(define rest (polymorphic (lambda (x) (cdr x))))
(define rest (polymorphic (lambda (x)
(unless (pair? x)
(raise-type-error 'rest "list" x))
(cdr x))))
(define build-string
(lambda (n fcn)
(unless (and (integer? n) (exact? n) (>= n 0))