Changeset 14299 in project

Timestamp:

04/19/09 18:35:37 (11 years ago)

Author:

Jim Ursetto

Message:

sql-de-lite: add first-column, version 0.3.1

Location:

release/4/sql-de-lite/trunk

Files:

• sql-de-lite.scm (modified) (2 diffs)
• sql-de-lite.setup (modified) (1 diff)

release/4/sql-de-lite/trunk/sql-de-lite.scm

@@ -24 +24 @@
      finalize step ; step-through
      fetch fetch-alist
-     fetch-all
+     fetch-all first-column
      column-count column-name column-type column-data
      column-names                         ; convenience
@@ -331 +331 @@
     (query (map-rows car)
            (sql db "select sql from sqlite_master where sql not NULL;")))
-
+  (define (first-column row)
+    (and (pair? row) (car row)))
   (define (flush-cache! db)
     (lru-cache-flush! (db-statement-cache db)))

release/4/sql-de-lite/trunk/sql-de-lite.setup

@@ -4 +4 @@
  'sql-de-lite 
  '("sql-de-lite.so" "sql-de-lite.import.so")
- '((version 0.3)))
+ '((version "0.3.1")))