From f7c7dc2052d73c414118b94a20794d4e1239dbac Mon Sep 17 00:00:00 2001
From: sforman <sforman@hushmail.com>
Date: Tue, 24 Oct 2023 14:29:38 -0700
Subject: [PATCH] Minor cleanup.

---
 implementations/scheme-chicken/joy.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm
index 0b2466c..0ba4241 100644
--- a/implementations/scheme-chicken/joy.scm
+++ b/implementations/scheme-chicken/joy.scm
@@ -268,14 +268,12 @@
 
 (define (joy-inscribe stack0 expression dict0)
   (receive (def stack) (pop-list stack0)
-    (if (null-list? def)
-      (abort "Empty definition.")
+    (if (null-list? def) (abort "Empty definition.")
       (receive (name body) (car+cdr def)
-        (if (symbol? name)
+        (if (not (symbol? name)) (abort "Def name isn't symbol.")
           (let ((dict (hash-table-copy dict0)))
             (hash-table-set! dict name body)
-            (values stack expression dict))
-          (abort "Def name isn't symbol."))))))
+            (values stack expression dict)))))))
 
 
 ;██╗   ██╗████████╗██╗██╗     ███████╗
-- 
2.11.0