aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-06-25 09:17:01 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-06-25 09:17:01 -0400
commitd282a7e283a1704cdde2649c7caf130fb923051a (patch)
tree3dfbeb78cd75017731d817d3a3a15919842a35dd
parente9460ea44fe7c11dc6d7d668ca9cd1b36418f097 (diff)
downloadlevitating-d282a7e283a1704cdde2649c7caf130fb923051a.tar.gz
levitating-d282a7e283a1704cdde2649c7caf130fb923051a.zip
Removed spurious printing when looking up instruction ids
-rw-r--r--captain/db.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/captain/db.f90 b/captain/db.f90
index 315bd10..1f9bc01 100644
--- a/captain/db.f90
+++ b/captain/db.f90
@@ -398,7 +398,7 @@ contains
type(sqlite3_stmt)::stmt
str = " "
- Print *, id
+
if(stmt%prepare(db, "SELECT name FROM instructions WHERE id=?") == SQLITE_OK) then
if(stmt%bind_int(1, id) == SQLITE_OK) then
if(stmt%step() == SQLITE_ROW) then