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

no message

Browse Source 
original commit: e7ad5db8606b05b6f98240edcaa80ed9d541dcef
This commit is contained in:
Robby Findler 2000-11-15 22:32:34 +00:00
commit c289919340
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/functior.ss
View File

@ -252,6 +252,11 @@
(unless (pair? x)
(raise-type-error 'first "non-empty list" x))
(car x))))
(define set-first!
(polymorphic (lambda (x v)
(unless (pair? x)
(raise-type-error 'set-first! "non-empty list" x))
(set-car! x v))))
(define (lget name npos)
(lambda (x)
(let loop ([l x][pos npos])
@ -278,6 +283,13 @@
(raise-type-error 'rest "non-empty list" x))
(cdr x))))
(define set-rest! (polymorphic (lambda (x v)
(unless (pair? x)
(raise-type-error 'set-rest! "non-empty list" x))
(unless (or (null? v) (pair? v))
(raise-type-error 'set-rest! "second argument must be a list" v))
(set-cdr! x v))))
(define build-string
(lambda (n fcn)
(unless (and (integer? n) (exact? n) (>= n 0))