summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-09-23 22:07:53 +0200
committerLudovic Courtès <ludo@gnu.org>2019-09-23 23:41:19 +0200
commit7abd5997f41fec38ea1daa9099a9693062f10dbc (patch)
tree1732f97f1025cfc8bfd5c590d33ae55f644a56a7 /gnu
parent4f8c29a75c3647b104c43ebf615d4a63a5e056b3 (diff)
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).
Diffstat (limited to 'gnu')
-rw-r--r--gnu/tests.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm
index 0871b4c6f77..27cb39c2b99 100644
--- a/gnu/tests.scm
+++ b/gnu/tests.scm
@@ -87,8 +87,7 @@
87 (requirement `(udev ,@requirement)) 87 (requirement `(udev ,@requirement))
88 88
89 (modules '((ice-9 match) 89 (modules '((ice-9 match)
90 (srfi srfi-9 gnu) 90 (srfi srfi-9 gnu)))
91 (rnrs bytevectors)))
92 (start 91 (start
93 (with-imported-modules imported-modules 92 (with-imported-modules imported-modules
94 #~(lambda () 93 #~(lambda ()
@@ -98,8 +97,8 @@
98 ((_ pred rest ...) 97 ((_ pred rest ...)
99 (or (pred x) 98 (or (pred x)
100 (one-of rest ...)))))) 99 (one-of rest ...))))))
101 (one-of symbol? string? pair? null? vector? 100 (one-of symbol? string? keyword? pair? null? array?
102 bytevector? number? boolean?))) 101 number? boolean?)))
103 102
104 (match (primitive-fork) 103 (match (primitive-fork)
105 (0 104 (0