make else from code work from hygienic macros #296

jcubic · Jan 31, 2024 · abfce87 · abfce87
1 parent e25ad66
commit abfce87
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 5 deletions.
diff --git a/dist/std.min.scm b/dist/std.min.scm
diff --git a/dist/std.scm b/dist/std.scm
diff --git a/dist/std.xcb b/dist/std.xcb
diff --git a/lib/bootstrap.scm b/lib/bootstrap.scm
@@ -576,8 +576,11 @@
                     `(begin
                        ,@expression))
                ,(if (and (pair? rest)
-                         (or (eq? (caar rest) true)
-                             (eq? (caar rest) 'else)))
+                         (let ((x (caar rest)))
+                           (or (eq? x true)
+                               (and (symbol? x)
+                                    (or (eq? x 'else)
+                                        (eq? (--> (new lips.LString (x.literal)) (cmp "else")) 0))))))
                     `(begin
                        ,@(cdar rest))
                     (if (not (null? rest))