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/
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users
