diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 20:20:53 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 20:32:01 +0200 |
| commit | 7292bd5019cf8847eb072159221b5cdd85499c14 (patch) | |
| tree | d1b498b71c50e208a082eccce6e2506dced1ab6a /src | |
| parent | ce0d739622193f0c8dab2898b0ea20235a223f06 (diff) | |
| download | cuirass-7292bd5019cf8847eb072159221b5cdd85499c14.tar cuirass-7292bd5019cf8847eb072159221b5cdd85499c14.tar.gz | |
database: read-quoted-string: add default value to optional argument.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/database.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 4405f6e..f746289 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -35,6 +35,7 @@ db-delete-evaluation db-add-build-log read-sql-file + read-quoted-string sqlite-exec ;; Parameters. %package-database @@ -170,7 +171,7 @@ INSERT INTO Evaluations (derivation, job_name, specification)\ (λ () body ...) (λ () (db-close db))))) -(define* (read-quoted-string #:optional port) +(define* (read-quoted-string #:optional (port (current-input-port))) "Read all of the characters out of PORT and return them as a SQL quoted string." (let loop ((chars '())) |