From 2363bdd707ba382d89c96e03c04038c047d7228c Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 19 Apr 2017 16:11:25 +0200
Subject: gexp: 'gexp-modules' accepts plain Scheme objects.

* guix/gexp.scm (gexp-modules): Return '() when not (gexp? GEXP).
* tests/gexp.scm ("gexp-modules and literal Scheme object"): New test.
---
 tests/gexp.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests/gexp.scm')

diff --git a/tests/gexp.scm b/tests/gexp.scm
index 41a53ae5a4..cf88a9db80 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -627,6 +627,10 @@
    #~(foo #$@(list (with-imported-modules '((foo)) #~+)
                    (with-imported-modules '((bar)) #~-)))))
 
+(test-equal "gexp-modules and literal Scheme object"
+  '()
+  (gexp-modules #t))
+
 (test-assertm "gexp->derivation #:modules"
   (mlet* %store-monad
       ((build ->  #~(begin
-- 
cgit v1.2.3

o</option>
<option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>refs</a><a class='active' href='/guix/log/gnu/packages/axoloti.scm'>log</a><a href='/guix/tree/gnu/packages/axoloti.scm?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>tree</a><a href='/guix/commit/gnu/packages/axoloti.scm?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>commit</a><a href='/guix/diff/gnu/packages/axoloti.scm?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/axoloti.scm'>
<input type='hidden' name='id' value='2786b2615cf40fefdac0f91f152458eaf5f5a3c5'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>root</a>/<a href='/guix/log/gnu?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>gnu</a>/<a href='/guix/log/gnu/packages?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>packages</a>/<a href='/guix/log/gnu/packages/axoloti.scm?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5'>axoloti.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/axoloti.scm?id=2786b2615cf40fefdac0f91f152458eaf5f5a3c5&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-01-08 23:20:59 +0100'>2023-01-08</span></td><td><a href='/guix/commit/gnu/packages/axoloti.scm?id=a4d9ce54880dc0d299e4489a168398440c9e7c33'>gnu: Move Java XML packages to new module.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-11 18:09:58 +0100'>2022-11-11</span></td><td><a href='/guix/commit/gnu/packages/axoloti.scm?id=09562e0bead3313e3e46a5fc0763f027a6bced3a'>gnu: axoloti: Remove unused module import.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>