[Chicken-users] Strange sqlite3 egg error

[Alex Queiroz]

Hallo,

    I'm getting strange errors with sqlite3:exec. I've got two structures:

#;2> (define myproj (make-project "PROJ01" "Lojas Maia" "20070615" ""
"Nova loja."))
#;3> (define myproj2  (make-project "PROJ02" "Bradesco" "20070601" #f
"Nova agencia."))

and then try to add them to my database:

#;4> (define *db* (db:init))
#;5> (db:insert-project *db* myproj)
#;6> (db:insert-project *db* myproj2)

but with the second struct I get the following error:

Error: bad argument count - received 4 but expected 3: #<procedure>

        Call history:

        <eval>            [insert-project] (sqlite3:exec insert-project-stmt
(project-code proj) (project-client proj) (project-start-date
proj......
        <eval>            [insert-project] (project-code proj)
        <eval>            [project-code] (##sys#check-structure x (quote 
project))
        <eval>            [project-code] (##sys#block-ref x 1)
        <eval>            [insert-project] (project-client proj)
        <eval>            [project-client] (##sys#check-structure x (quote 
project))
        <eval>            [project-client] (##sys#block-ref x 2)
        <eval>            [insert-project] (project-start-date proj)
        <eval>            [project-start-date] (##sys#check-structure x (quote 
project))
        <eval>            [project-start-date] (##sys#block-ref x 3)
        <eval>            [insert-project] (project-end-date proj)
        <eval>            [project-end-date] (##sys#check-structure x (quote 
project))
        <eval>            [project-end-date] (##sys#block-ref x 4)
        <eval>            [insert-project] (project-description proj)
        <eval>            [project-description] (##sys#check-structure x (quote 
project))
        <eval>            [project-description] (##sys#block-ref x 5)     <--

(db:insert-project *db*) is:

(insert-project
  (lambda (proj)
      (sqlite3:exec insert-project-stmt
                         (project-code proj)
                         (project-client proj)
                         (project-start-date proj)
                         (project-end-date proj)
                         (project-description proj))))

    Is there any problem with passing #f to sqlite3:exec?

Cheers,
--
-alex
http://www.ventonegro.org/