--- test/testsock.c	2013-01-24 06:57:21.000000000 +0100
+++ test/testsock.c	2013-01-24 17:24:54.000000000 +0100
@@ -90,16 +90,22 @@
     rv = apr_sockaddr_info_get(&sa, NULL, APR_UNSPEC, 0, 0, p);
     APR_ASSERT_SUCCESS(tc, "Problem generating sockaddr", rv);
 
+    /* /etc/services is not available while compiling, so apr_getservbyname
+     * will always return APR_ENOENT. */
+#if 0
     rv = apr_getservbyname(sa, "ftp");
     APR_ASSERT_SUCCESS(tc, "Problem getting ftp service", rv);
     ABTS_INT_EQUAL(tc, 21, sa->port);
+#endif
 
     rv = apr_getservbyname(sa, "complete_and_utter_rubbish");
     APR_ASSERT_SUCCESS(tc, "Problem getting non-existent service", !rv);
 
+#if 0
     rv = apr_getservbyname(sa, "telnet");
     APR_ASSERT_SUCCESS(tc, "Problem getting telnet service", rv);
     ABTS_INT_EQUAL(tc, 23, sa->port);
+#endif
 }
 
 static apr_socket_t *setup_socket(abts_case *tc)
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=f0752de257d5521f7cbe31a4c0f5114694747a08'>refs</a><a class='active' href='/guix/log/gnu/services.scm'>log</a><a href='/guix/tree/gnu/services.scm?id=f0752de257d5521f7cbe31a4c0f5114694747a08'>tree</a><a href='/guix/commit/gnu/services.scm?id=f0752de257d5521f7cbe31a4c0f5114694747a08'>commit</a><a href='/guix/diff/gnu/services.scm?id=f0752de257d5521f7cbe31a4c0f5114694747a08'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services.scm'>
<input type='hidden' name='id' value='f0752de257d5521f7cbe31a4c0f5114694747a08'/><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=f0752de257d5521f7cbe31a4c0f5114694747a08'>root</a>/<a href='/guix/log/gnu?id=f0752de257d5521f7cbe31a4c0f5114694747a08'>gnu</a>/<a href='/guix/log/gnu/services.scm?id=f0752de257d5521f7cbe31a4c0f5114694747a08'>services.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/services.scm?id=f0752de257d5521f7cbe31a4c0f5114694747a08&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-12-02 12:25:45 +0100'>2023-12-02</span></td><td><a href='/guix/commit/gnu/services.scm?id=b0715d7cd2a74bc231751f8afc9dffb2047501ac'>gnu: Use ‘libc-utf8-locales-for-target’.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/packages.scm (%standard-patch-inputs): Use
‘libc-utf8-locales-for-target’ instead of ‘glibc-utf8-locales’.
* guix/self.scm (%packages): Likewise.
* gnu/home/services/ssh.scm (file-join): Likewise
* gnu/installer.scm (build-compiled-file): Likewise.
* gnu/packages/chromium.scm (ungoogled-chromium/wayland): Likewise.
* gnu/packages/gnome.scm (libgweather4, tracker): Likewise.
* gnu/packages/javascript.scm (js-mathjax): Likewise.
* gnu/packages/package-management.scm (guix, flatpak): Likewise.
* gnu/packages/raspberry-pi.scm (raspi-arm64-chainloader): Likewise.
* gnu/packages/suckless.scm (svkbd): Likewise.
* gnu/services.scm (cleanup-gexp): Likewise.
* gnu/services/base.scm (guix-publish-shepherd-service): Likewise.
* gnu/services/guix.scm (guix-build-coordinator-shepherd-services)
(guix-build-coordinator-agent-shepherd-services): Likewise.
* gnu/services/guix.scm (guix-build-coordinator-queue-builds-shepherd-services):
(guix-data-service-shepherd-services)
(nar-herder-shepherd-services)
(bffe-shepherd-services): Likewise.
* gnu/services/web.scm (anonip-shepherd-service)
(mumi-shepherd-services): Likewise.
* gnu/system/image.scm (system-disk-image, system-iso9660-image)
(system-docker-image, system-tarball-image): Likewise.
* gnu/system/install.scm (%installation-services): Likewise.
* guix/profiles.scm (info-dir-file): Likewise.
(ca-certificate-bundle, profile-derivation): Likewise.
* guix/scripts/pack.scm (store-database, set-utf8-locale): Likewise.
* tests/pack.scm: Likewise.
* tests/profiles.scm ("profile-derivation, cross-compilation"):
Likewise.

Co-authored-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
Co-authored-by: Christopher Baines &lt;mail@cbaines.net&gt;
Change-Id: I24239f427bcc930c29d2ba5d00dc615960a6c374
</span></span></td><td>Janneke Nieuwenhuizen</td></tr>
<tr><td><span title='2023-08-31 23:31:50 -0400'>2023-08-31</span></td><td><a href='/guix/commit/gnu/services.scm?id=f66fa5f917e76935187935b09ae7ac037b8b35f8'>gnu: services: Revert to deleting and updating all matching services</a><span class='msg-avail'>...<span class='msg-tooltip'>This patch reverts the behavior introduced in
181951207339508789b28ba7cb914f983319920f which caused ‘modify-services’
clauses to only match a single instance of a service.

We will now match all service instances when doing a deletion or update, while
still raising an exception when trying to match against a service that does
not exist in the services list, or which was deleted explicitly by a ‘delete’
clause (or an update clause that returns ‘#f’ for the service).

Fixes: #64106

* gnu/services.scm (%modify-services): New procedure.
(modify-services): Use it.
(apply-clauses): Add DELETED-SERVICES argument, change to modify one service
at a time.
* tests/services.scm
("modify-services: delete then modify")
("modify-services: modify then delete")
("modify-services: delete multiple services of the same type")
("modify-services: modify multiple services of the same type"): New tests.

Signed-off-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
Modified-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
</span></span></td><td>Brian Cully</td></tr>
<tr><td><span title='2023-08-20 22:48:47 +0200'>2023-08-20</span></td><td><a href='/guix/commit/gnu/services.scm?id=dff7d2468ffe9d01b25662544af380e1794ac55a'>services: Define 'for-home'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services.scm (remove-service-extensions): New procedure.
(for-home?): New syntax parameter.
(for-home): New macro.
</span></span></td><td>Ludovic Courtès</td></tr>