Ignore:
Timestamp:
06/09/2008 08:48:23 PM (18 years ago)
Author:
dsowen
revision id:
svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:36
Message:

Made FILTER specification a little more natural

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/parsing.lisp

    r31 r32  
    2929
    3030The tree may optionally be filtered by FILTER before being labeled."
    31   (let ((filtered (if filter `(,filter match) `match)))
     31  (let ((filtered (if filter `(funcall ,filter match) `match)))
    3232    `(defun ,name (input)
    3333       (if-matches input ,rule (next match)
Note: See TracChangeset for help on using the changeset viewer.