Ignore:
Timestamp:
10/30/10 19:47:15 (10 years ago)
Author:
Mario Domenech Goulart
Message:

demonstrations/awful/fortune: bug fix and improved `random-fortune' (excellent tips from Peter Bex)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • demonstrations/awful/fortune/create-database.scm

    r20676 r21138  
    127127
    128128(let ((db (open-database "fortunes.db")))
    129   (exec (sql db "create table fortunes(id integer primary key autoincrement, sentence text, author text)"))
     129  (exec (sql db "create table fortunes(sentence text, author text)"))
    130130  (for-each (lambda (fortune)
    131131              (let* ((sentence (car fortune))
Note: See TracChangeset for help on using the changeset viewer.