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

fixing typing of find-variable

Browse Source
This commit is contained in:
Danny Yoo 2011-03-11 14:02:06 -05:00
parent 05d6043613
commit b1ca4078b5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lexical-env.rkt
View File

@ -49,8 +49,8 @@
(: list-index (All (A) A (Listof A) -> (U #f Natural))) (: list-index (All (A) A (Listof A) -> (U #f Natural)))
(define (list-index x l) (define (list-index x l)
(let loop ([i 0] (let: loop : (U #f Natural) ([i : Natural 0]
[l l]) [l : (Listof A) l])
(cond (cond
[(empty? l) [(empty? l)
#f] #f]