diff options
| author | Tim O'Shea <tim.oshea753@gmail.com> | 2012-11-28 15:15:58 -0800 |
|---|---|---|
| committer | Johnathan Corgan <johnathan@corganlabs.com> | 2012-11-29 15:42:57 -0800 |
| commit | 92cfb0240005675f4e7a55a81552f4c7a5128cd8 (patch) | |
| tree | 024a40e11a27a41eaa908b2eefb4a218795bff18 /gruel/src/lib/pmt/pmt.cc | |
| parent | 0fbd1699158f01937f61c245398ccdaebe3d978b (diff) | |
core: adding msg_connect, updating msg interface, adding symbolic block names
Diffstat (limited to 'gruel/src/lib/pmt/pmt.cc')
| -rw-r--r-- | gruel/src/lib/pmt/pmt.cc | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gruel/src/lib/pmt/pmt.cc b/gruel/src/lib/pmt/pmt.cc index 1d9125d4e0..3eb39ed7b1 100644 --- a/gruel/src/lib/pmt/pmt.cc +++ b/gruel/src/lib/pmt/pmt.cc @@ -1325,6 +1325,22 @@ pmt_list_add(pmt_t list, const pmt_t& item) } pmt_t +pmt_list_rm(pmt_t list, const pmt_t& item) +{ + if(pmt_is_pair(list)){ + pmt_t left = pmt_car(list); + pmt_t right = pmt_cdr(list); + if(!pmt_equal(left, item)){ + return pmt_cons(left, pmt_list_rm(right, item)); + } else { + return pmt_list_rm(right, item); + } + } else { + return list; + } +} + +pmt_t pmt_caar(pmt_t pair) { return (pmt_car(pmt_car(pair))); |