list-tail

svn: r12017

original commit: c08e09ae6ca4cdcffb3bd79d6f5b01c3f752fbe6
This commit is contained in:
Eli Barzilay 2008-10-13 16:16:18 +00:00
parent 01be0f1dd8
commit e87cb50bd2

View File

@ -235,7 +235,8 @@
[assf (-poly (a b) ((a . -> . Univ) (-lst (-pair a b))
. -> . (-opt (-pair a b))))]
[list-ref (-poly (a) ((-lst a) -Integer . -> . a))]
[list-ref (-poly (a) ((-lst a) -Integer . -> . a))]
[list-tail (-poly (a) ((-lst a) -Integer . -> . (-lst a)))]
[positive? (-> N B)]
[negative? (-> N B)]
[odd? (-> N B)]