Changeset trunk,24 for trunk/matching.lisp

Timestamp:

06/24/2007 01:48:00 AM (19 years ago)

Author:

dsowen

revision id:

svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:24

Message:

Recognize symbols by name instead of identity.

File:

• trunk/matching.lisp (modified) (1 diff)

trunk/matching.lisp

@@ -234 +234 @@
     (list
      (destructuring-bind (head . tail) rule
-       (case head
+       (symcase head
          (^ (destructuring-bind (regex) tail
               `(if-matches-regex ,input ,regex (,next ,match) ,then ,else)))