changeset 274 | dbc75d602637 |
parent 258 | 4d06e035b80e |
--- a/etng-r2/etng-parser.g Tue Jul 28 11:13:25 2009 +0100 +++ b/etng-r2/etng-parser.g Sat Aug 08 15:19:25 2009 +0100 @@ -73,7 +73,7 @@ send = parse:receiver parse*:arguments pipeline:continuation -> (continuation (if (null? arguments) receiver `(send ,receiver ,@arguments))) - | &pipe pipeline + | &pipe pipeline:continuation -> (let ((g (gensym 'pipe))) `(function (method ((bind ,g)) ,(continuation `(ref ,g))))) ;