George C. Privon 6 лет назад
Родитель
Сommit
33bd9dc60a
1 измененных файлов с 3 добавлено и 6 удалено
  1. 3 6
      update_proposals.rkt

+ 3 - 6
update_proposals.rkt

@@ -47,8 +47,7 @@
                  (vector-ref entry 2)
                  (vector-ref entry 2)
                  ") "
                  ") "
                  (vector-ref entry 3)
                  (vector-ref entry 3)
-                 ".\n"))
-  )
+                 ".\n")))
 
 
 ; add a new proposal to the database
 ; add a new proposal to the database
 (define (addnew)
 (define (addnew)
@@ -91,8 +90,7 @@
               newstatus
               newstatus
               resdate
               resdate
               ID)
               ID)
-  (write-string "Entry updated.\n")
-  )
+  (write-string "Entry updated.\n"))
 
 
 ; find proposals waiting for updates
 ; find proposals waiting for updates
 (define (findpending)
 (define (findpending)
@@ -107,8 +105,7 @@
   (cond
   (cond
     [(eq? (string->number upID) 0) (exit)]
     [(eq? (string->number upID) 0) (exit)]
     [(string->number upID) (update (string->number upID))]
     [(string->number upID) (update (string->number upID))]
-    [else (exit)])
-  )
+    [else (exit)]))
 
 
 ; make sure we can use the sqlite3 connection
 ; make sure we can use the sqlite3 connection
 (cond (not (sqlite3-available?))
 (cond (not (sqlite3-available?))