From 70af1d6394a3a4142dd850b64d688a2dc337b3d4 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Tue, 23 Mar 2021 12:13:09 +0900
Subject: [PATCH] Friendlier error for bad trace command (issue #733).

---
 main.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/main.c b/main.c
index 352bf84b..53b5976d 100644
--- a/main.c
+++ b/main.c
@@ -517,6 +517,10 @@ sexp run_main (int argc, char **argv) {
 #if SEXP_USE_MODULES
       check_nonull_arg('t', arg);
       suffix = strrchr(arg, '.');
+      if (suffix == NULL) {
+        fprintf(stderr, "trace expected: -t module.name.binding, e.g. srfi.1.iota, but got %s\n", arg);
+        break;
+      }
       sym = sexp_intern(ctx, suffix + 1, -1);
       *(char*)suffix = '\0';
       impmod = make_import(sexp_trace_prefix, arg, sexp_trace_suffix);