cj-env-2: pmatch: support quoted expressions as eq? checks

pflanze · Aug 12, 2020 · b74f91a · b74f91a
1 parent 50ee230
commit b74f91a
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/cj-env-2.scm b/cj-env-2.scm
@@ -177,7 +177,11 @@
                          (set! have-else? #t)
                          `(else ,@rest))
                         (`(`pexpr . `rest)
-                         `((,pexpr, V) ,@rest)))
+                         (mcase pexpr
+                                (`(quote `val)
+                                 `((eq? ,V ',val) ,@rest))
+                                (else
+                                 `((,pexpr ,V) ,@rest)))))
                        cases)))
      `(let ((,V ,expr))
         (cond ,@cases*
@@ -188,9 +192,12 @@
  > (define (t v)
      (pmatch v
        (number? 'num)
+       ('foo 'is-foo)
        (string? 'str)))
  > (t "foo")
  str
+ > (t 'foo)
+ is-foo
  > (t 123)
  num
  > (%try-error (t 'bar))