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

fix dumb typo

Browse Source 
svn: r18018
This commit is contained in:
Sam Tobin-Hochstadt 2010-02-08 18:21:43 +00:00
parent 55a48ca594
commit 89eb249b00
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/private/base-env.ss
View File

@ -37,7 +37,7 @@
[-> (-lst a) a]))]
[cdddr (-poly (a b c d)
(cl->* [->acc (list (-pair a (-pair b (-pair c d)))) d (list -cdr -cdr -cdr)]
[-> (-lst a) a]))]
[-> (-lst a) (-lst a)]))]
[cadddr (-poly (a) (-> (-lst a) a))]
[cddddr (-poly (a) (-> (-lst a) (-lst a)))]