projects
/
lambda.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
name change
[lambda.git]
/
code
/
refunctionalizing_zippers.rkt
diff --git
a/code/refunctionalizing_zippers.rkt
b/code/refunctionalizing_zippers.rkt
index
cac0916
..
477daea
100644
(file)
--- a/
code/refunctionalizing_zippers.rkt
+++ b/
code/refunctionalizing_zippers.rkt
@@
-69,7
+69,8
@@
(define (tc3 l k)
(cond
[(null? l) (k '())]
(define (tc3 l k)
(cond
[(null? l) (k '())]
- [(eqv? #\# (car l)) (append (k '()) (tc3 (cdr l) identity))]
+ ; [(eqv? #\# (car l)) (append (k '()) (tc3 (cdr l) identity))]
+ [(eqv? #\# (car l)) (k (tc3 (cdr l) identity))]
[(eqv? #\S (car l)) (tc3 (cdr l) (compose k k))]
[else (tc3 (cdr l) (lambda (tail) (k (cons (car l) tail))))]))
[(eqv? #\S (car l)) (tc3 (cdr l) (compose k k))]
[else (tc3 (cdr l) (lambda (tail) (k (cons (car l) tail))))]))
@@
-78,7
+79,8
@@
(shift k
(cond
[(null? l) (identity (k '()))]
(shift k
(cond
[(null? l) (identity (k '()))]
- [(eqv? #\# (car l)) (append (k '()) (reset (tr3 (cdr l))))]
+ ; [(eqv? #\# (car l)) (append (k '()) (reset (tr3 (cdr l))))]
+ [(eqv? #\# (car l)) (k (reset (tr3 (cdr l))))]
[(eqv? #\S (car l)) ((compose k k) (tr3 (cdr l)))]
[else ((lambda (tail) (k (cons (car l) tail))) (tr3 (cdr l)))])))
[(eqv? #\S (car l)) ((compose k k) (tr3 (cdr l)))]
[else ((lambda (tail) (k (cons (car l) tail))) (tr3 (cdr l)))])))