diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-09-23 22:07:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-09-23 23:41:19 +0200 |
| commit | 7abd5997f41fec38ea1daa9099a9693062f10dbc (patch) | |
| tree | 1732f97f1025cfc8bfd5c590d33ae55f644a56a7 /gnu | |
| parent | 4f8c29a75c3647b104c43ebf615d4a63a5e056b3 (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.scm | 7 |
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 |
