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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user