removed unnecessary begin statements

This commit is contained in:
Ibrahim Mkusa 2017-04-21 18:14:16 -04:00
parent 42eceeb36f
commit ce93a60d0e

View File

@ -12,8 +12,7 @@
(provide make-gui) (provide make-gui)
(define (make-gui) (define (make-gui)
(begin ;;Create the frame/window with title "Example5", width 500 and height 700
;;Create the frame
(define main-frame (new frame% (define main-frame (new frame%
[label "Example5"] [label "Example5"]
[width 500] [width 500]
@ -144,7 +143,7 @@
(else (error "Invalid Request" command)) (else (error "Invalid Request" command))
)) ))
;;dispatch goes below that ;;dispatch goes below that
dispatch)) dispatch)
;This one displays information ;This one displays information