1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

repl, marionette: 'self-quoting?' matches keywords.

* guix/repl.scm (self-quoting?): Add 'keyword?' and 'array?'; remove
'vector?' and 'bytevector?'.
* gnu/tests.scm (marionette-shepherd-service) <start>: Likewise.
<modules>: Remove (rnrs bytevector).
This commit is contained in:
Ludovic Courtès
2019-09-23 22:07:53 +02:00
parent 4f8c29a75c
commit 7abd5997f4
2 changed files with 5 additions and 8 deletions

View File

@@ -87,8 +87,7 @@
(requirement `(udev ,@requirement))
(modules '((ice-9 match)
(srfi srfi-9 gnu)
(rnrs bytevectors)))
(srfi srfi-9 gnu)))
(start
(with-imported-modules imported-modules
#~(lambda ()
@@ -98,8 +97,8 @@
((_ pred rest ...)
(or (pred x)
(one-of rest ...))))))
(one-of symbol? string? pair? null? vector?
bytevector? number? boolean?)))
(one-of symbol? string? keyword? pair? null? array?
number? boolean?)))
(match (primitive-fork)
(0