summaryrefslogtreecommitdiff
path: root/module/system/repl/command.scm
diff options
context:
space:
mode:
authorMorgan Smith <Morgan.J.Smith@outlook.com>2023-05-30 15:09:47 -0400
committerLudovic Courtès <ludo@gnu.org>2023-07-16 22:09:01 +0200
commitc7d170c5d1e90de64962d4cf3cb257364f77b08f (patch)
treea4ce404e186598e750f76d06e52ac16be9c52f9d /module/system/repl/command.scm
parent99e727addee6acababe18c7fa7b5a0fb2516817c (diff)
downloadguile-c7d170c5d1e90de64962d4cf3cb257364f77b08f.tar.gz
Fix typos throughout codebase.
* NEWS: * README: * doc/r5rs/r5rs.texi: * doc/ref/api-data.texi: * doc/ref/api-debug.texi: * doc/ref/api-evaluation.texi: * doc/ref/api-io.texi: * doc/ref/api-macros.texi: * doc/ref/api-procedures.texi: * doc/ref/api-scheduling.texi: * doc/ref/api-undocumented.texi: * doc/ref/libguile-concepts.texi: * doc/ref/posix.texi: * doc/ref/srfi-modules.texi: * doc/ref/vm.texi: * doc/ref/web.texi: * examples/box-dynamic-module/box.c: * examples/box-dynamic/box.c: * examples/box-module/box.c: * examples/box/box.c: * examples/safe/safe: * examples/scripts/README: * examples/scripts/hello: * gc-benchmarks/larceny/twobit-input-long.sch: * gc-benchmarks/larceny/twobit-smaller.sch: * gc-benchmarks/larceny/twobit.sch: * libguile/expand.c: * libguile/load.c: * libguile/net_db.c: * libguile/scmsigs.c: * libguile/srfi-14.c: * libguile/threads.c: * meta/guile.m4: * module/ice-9/match.upstream.scm: * module/ice-9/ports.scm: * module/language/cps/graphs.scm: * module/scripts/doc-snarf.scm: * module/srfi/srfi-19.scm: * module/system/repl/command.scm: * test-suite/tests/srfi-18.test: Fix typos. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r--module/system/repl/command.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 74187270a..e5a4d672b 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -166,7 +166,7 @@
(define (meta-command repl)
(let ((command (read-command repl)))
(cond
- ((eq? command *unspecified*)) ; read error, already signalled; pass.
+ ((eq? command *unspecified*)) ; read error, already signaled; pass.
((not (symbol? command))
(format #t "Meta-command not a symbol: ~s~%" command))
((lookup-command command)