fixed a bug in the error checking code

svn: r7288
2007-09-07 01:12:56 +00:00 · 2007-09-07 01:12:56 +00:00 · 338a77f341
commit 338a77f341
parent ff21641af2
1 changed files with 1 additions and 1 deletions
--- a/collects/slideshow/cmdline.ss
+++ b/collects/slideshow/cmdline.ss
@ -89,7 +89,7 @@
               [nh (string->number h)])
           (unless (and nw (< 0 nw 10000))
             (die 'slideshow "bad width: ~e" w))
-           (unless (and nw (< 0 nh 10000))
+           (unless (and nh (< 0 nh 10000))
             (die 'slideshow "bad height: ~e" h))
           (set! actual-screen-w nw)
           (set! actual-screen-h nh)))