it's a predictions database

code/create_database.rkt

@@ -10,7 +10,7 @@
   (write-string (string-append "Creating database " dbloc "\n"))
   (define conn (sqlite3-connect #:database dbloc
                                 #:mode 'create))
-  (query-exec conn "CREATE TABLE proposals (ID INTEGER NOT NULL,
+  (query-exec conn "CREATE TABLE predictions (ID INTEGER NOT NULL,
 date TEXT NOT NULL,
 prediction TEXT NOT NULL,
 categories TEXT DEFAULT '',
@@ -27,7 +27,7 @@ comments TEXT DEFAULT '')")
 (cond (not (sqlite3-available?))
       (error "Sqlite3 library not available."))
 
-; create the database and add the `proposals` table if it doesn't exist
+; create the database and add the `predictions` table if it doesn't exist
 (if (not (file-exists? dbloc))
     (createdb dbloc)
     (write-string "Database exists. Exiting."))