Skip to content
Browse files

Fix 2_45 & 2_46

  • Loading branch information...
1 parent 975e5ad commit 635864a7aafb7386a0d05e1b4f76863886c910b7 @fastred committed Dec 30, 2012
Showing with 10 additions and 6 deletions.
  1. +5 −1 2_45.scm
  2. +5 −5 2_46.scm
View
6 2_45.scm
@@ -3,4 +3,8 @@
(if (= n 0)
painter
(let ((smaller (rec-split painter (- n 1))))
- (first painter (second smaller smaller))))))
+ (first painter (second smaller smaller)))))
+ rec-split)
+
+(define right-split (split beside below))
+(define up-split (split below beside))
View
10 2_46.scm
@@ -31,9 +31,9 @@
(define x (make-vect 1 3))
-(xcor-vect x)
-(ycor-vect x)
-(add-vect x x)
-(sub-vect x (make-vect 1 1))
-(scale-vect 5 x)
+;(xcor-vect x)
+;(ycor-vect x)
+;(add-vect x x)
+;(sub-vect x (make-vect 1 1))
+;(scale-vect 5 x)

0 comments on commit 635864a

Please sign in to comment.
Something went wrong with that request. Please try again.