From 3eec3b4c46bcc7a5152cb79e2a2b959b7aa9033d Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Thu, 29 Oct 2015 15:12:59 +0300
Subject: tests/session.scm ("session-set!, invalid values"): Use 'const'

---
 tests/session.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'tests/session.scm')

diff --git a/tests/session.scm b/tests/session.scm
index ceba11f..b52cfca 100644
--- a/tests/session.scm
+++ b/tests/session.scm
@@ -91,8 +91,7 @@
                 (format l "  opt: ~a, val: ~a -- passed mistakenly~%"
                         (car opt) val)
                 (set! res #f)))
-            (lambda (key . args)
-              #t)))
+            (const #t)))
         (cdr opt)))
      options)
     res))
-- 
cgit v1.2.3