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

switching out with the unsafe operators

Browse Source
This commit is contained in:
Danny Yoo 2011-07-28 18:05:21 -04:00
parent f23c9773c0
commit 27b5821898
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lang/private/list.rkt
View File

@ -152,20 +152,20 @@
(let loop ([l orig-l][t orig-l]) (let loop ([l orig-l][t orig-l])
(cond (cond
[(pair? l) [(pair? l)
(let ([a (car #;unsafe-car l)]) (let ([a (unsafe-car l)])
(if (pair? a) (if (pair? a)
(if (is-equal? x (car #;unsafe-car a)) (if (is-equal? x (unsafe-car a))
a a
(let ([l (cdr #;unsafe-cdr l)]) (let ([l (unsafe-cdr l)])
(cond (cond
;; [(eq? l t) (bad-list who orig-l)] ;; [(eq? l t) (bad-list who orig-l)]
[(pair? l) [(pair? l)
(let ([a (car #;unsafe-car l)]) (let ([a (unsafe-car l)])
(if (pair? a) (if (pair? a)
(if (is-equal? x (car #;unsafe-car a)) (if (is-equal? x (unsafe-car a))
a a
(let ([t (cdr #;unsafe-cdr t)] (let ([t (unsafe-cdr t)]
[l (cdr #;unsafe-cdr l)]) [l (unsafe-cdr l)])
(if (eq? l t) (if (eq? l t)
(bad-list who orig-l) (bad-list who orig-l)
(loop l t)))) (loop l t))))