From 7292bd5019cf8847eb072159221b5cdd85499c14 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Mon, 25 Jul 2016 20:20:53 +0200
Subject: [PATCH] database: read-quoted-string: add default value to optional
 argument.

---
 src/cuirass/database.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 '()))