Permalink
Browse files

Small fixes.

  • Loading branch information...
1 parent 1c3ad3d commit d17ea53458fda196eb6c2ba1a7757da17409a2c8 @dardoria committed Mar 20, 2012
Showing with 3 additions and 2 deletions.
  1. +1 −1 app.lisp
  2. +2 −1 utils.lisp
View
@@ -94,7 +94,7 @@
(gl:viewport 0 0 width height)
(gl:matrix-mode :projection)
(gl:load-identity)
- (glu:ortho-2d 0 width 0 height)
+ (glu:ortho-2d 0 width height 0)
(gl:matrix-mode :modelview)
(gl:load-identity)))
View
@@ -39,4 +39,5 @@
(+ x (random range ))))))
(defun random-element (sequence)
- (nth (random (length sequence)) sequence))
+ (when sequence
+ (nth (random (length sequence)) sequence)))

0 comments on commit d17ea53

Please sign in to comment.