Skip to content

Commit 1d33d36

Browse files
authored
Update index.html
rename `eq` to `eq?`, to test trailing `?`
1 parent e67e162 commit 1d33d36

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

index.html

+1-1
Original file line numberDiff line numberDiff line change
@@ -116,7 +116,7 @@ <h1>
116116
chunk = \ a b xs . row-s a (colS b xs)
117117
append = \ as bs . null as bs (cons (head as) (append (tail as) bs))
118118
concat = foldr append nil
119-
eq = \ a b . is-z a (is-z b) (is-z b false (eq (pred a) (pred b)))
119+
eq? = \ a b . is-z a (is-z b) (is-z b false (eq? (pred a) (pred b)))
120120
all = foldr (\ a b . a b false) true
121121
allf = \ f xs . all (map f xs)
122122
</textarea>

0 commit comments

Comments
 (0)