>From dd8f345a3c0c6eff2ab9d41e8eae1b7e9c339ade Mon Sep 17 00:00:00 2001
From: Caleb Ristvedt <address@hidden>
Date: Sat, 3 Jun 2017 03:04:12 -0500
Subject: [PATCH 5/7] fixup! Implement prototype register-path in scheme

---
 guix/sql.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/sql.scm b/guix/sql.scm
index 16a379f97..b1e0c0aa4 100644
--- a/guix/sql.scm
+++ b/guix/sql.scm
@@ -151,7 +151,7 @@ $deriver, narSize = $size WHERE id = $id")
   "INSERT INTO ValidPaths (path, hash, registrationTime, deriver, narSize)
 VALUES ($path, $hash, $time, $deriver, $size)")
 
-(define (update-or-insert #:key db path deriver hash nar-size time)
+(define* (update-or-insert #:key db path deriver hash nar-size time)
   "The classic update-if-exists and insert-if-doesn't feature that sqlite
 doesn't exactly have... they've got something close, but it involves deleting
 and re-inserting instead of updating, which causes problems with foreign keys,
-- 
2.13.0