Преглед изворни кода

remove errant testing on user arguments

George C. Privon пре 2 година
родитељ
комит
9280581737
1 измењених фајлова са 0 додато и 4 уклоњено
  1. 0 4
      update_proposals.rkt

+ 0 - 4
update_proposals.rkt

@@ -34,10 +34,6 @@
               #:args ([updatetype "help"]) ; (add, update, list-open, list-closed, help)
               #:args ([updatetype "help"]) ; (add, update, list-open, list-closed, help)
               updatetype))
               updatetype))
 
 
-(if (start-date)
-    (println (start-date))
-    (println "No start date provided"))
-
 ; print some help
 ; print some help
 (define (printhelp)
 (define (printhelp)
   (displayln (string-append "Usage: "
   (displayln (string-append "Usage: "