From: sforman <sforman@hushmail.com>
Date: Tue, 24 Oct 2023 21:29:38 +0000 (-0700)
Subject: Minor cleanup.
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=f7c7dc2052d73c414118b94a20794d4e1239dbac;p=joypy%2FThun.git

Minor cleanup.
---

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)))))))
 
 
 ;██╗   ██╗████████╗██╗██╗     ███████╗