Permalink
Browse files

Fixed bugs in bad export, which hid bugs in list implementation

  • Loading branch information...
1 parent 3c5b269 commit 7728c8887adc43a20d3a216be2a3ae65ac273ed1 @shriram committed Oct 21, 2011
Showing with 6 additions and 6 deletions.
  1. +1 −1 cs019.rkt
  2. +5 −5 impl/lists.rkt
View
2 cs019.rkt
@@ -6,7 +6,7 @@
(prefix-in
asl:
(except-in lang/htdp-advanced
- first rest second ;third fourth fifth sixth seventh eighth rest
+ first rest second third fourth fifth sixth seventh eighth
image? require #%module-begin
signature : Number Real Rational Integer Natural
Boolean True False String Empty-list Any Property
View
10 impl/lists.rkt
@@ -20,10 +20,10 @@ and provide these instead.
(define second cadr)
(define third caddr)
(define fourth cadddr)
-(define (fifth l) (list-ref l 5))
-(define (sixth l) (list-ref l 6))
-(define (seventh l) (list-ref l 7))
-(define (eighth l) (list-ref l 8))
+(define (fifth l) (list-ref l 4))
+(define (sixth l) (list-ref l 5))
+(define (seventh l) (list-ref l 6))
+(define (eighth l) (list-ref l 7))
-(provide first rest second) ;third fourth fifth sixth seventh eighth)
+(provide first rest second third fourth fifth sixth seventh eighth)

0 comments on commit 7728c88

Please sign in to comment.