conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed trivial bug

This commit is contained in:
stibear 2014-02-11 22:29:25 +09:00
parent cfdeae686c
commit 88706bddad
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
piclib/srfi/1.scm
View File

@ -134,7 +134,7 @@
(let ((lead (drop flist i))) (let ((lead (drop flist i)))
(if (not-pair? lead) (if (not-pair? lead)
'() '()
(let rec ((lis1 flist) (lead (cdr lead))) (let rec ((lis1 flist) (lis2 (cdr lead)))
(if (pair? lis2) (if (pair? lis2)
(rec (cdr lis1) (cdr lis2)) (rec (cdr lis1) (cdr lis2))
(begin (set-cdr! lis1 '()) flist)))))) (begin (set-cdr! lis1 '()) flist))))))
@ -156,17 +156,18 @@
(define third caddr) (define third caddr)
(define fourth cadddr) (define fourth cadddr)
(define (fifth pair) (define (fifth pair)
(list-ref pair 5)) (list-ref pair 4))
(define (sixth pair) (define (sixth pair)
(list-ref pair 6)) (list-ref pair 5))
(define (seventh pair) (define (seventh pair)
(list-ref pair 7)) (list-ref pair 6))
(define (eighth pair) (define (eighth pair)
(list-ref pair 8)) (list-ref pair 7))
(define (ninth pair) (define (ninth pair)
(list-ref pair 9)) (list-ref pair 8))
(define (tenth pair) (define (tenth pair)
(list-ref pair 10)) (list-ref pair 9))
(export car cdr car+cdr list-ref (export car cdr car+cdr list-ref
caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr
@ -758,7 +759,7 @@
(if (eq? head next) (if (eq? head next)
'() '()
(rec (append! (remove! (lambda (x) (member x next =)) head) (rec (append! (remove! (lambda (x) (member x next =)) head)
(remove! (lambda (x) (member x head =)) next)) (remove! (lambda (x) (member x head =)) next))
rest))))))) rest)))))))
(define (lset-diff+intersection! = list . lists) (define (lset-diff+intersection! = list . lists)