steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

effects.parser: Remove left-over old code that did (( -- )) stack effects.

locals-and-roots
Doug Coleman 2016-03-25 01:50:00 -07:00
parent 0bb3228063
commit 58efceb408
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/effects/parser/parser.factor
View File

@ -15,8 +15,8 @@ SYMBOL: effect-var
<PRIVATE
: end-token? ( end token -- token ? ) [ nip ] [ = ] 2bi ; inline
: effect-opener? ( token -- token ? ) dup { f "(" "((" "--" } member? ; inline
: effect-closer? ( token -- token ? ) dup { ")" "))" } member? ; inline
: effect-opener? ( token -- token ? ) dup { f "(" "--" } member? ; inline
: effect-closer? ( token -- token ? ) dup ")" sequence= ; inline
: row-variable? ( token -- token' ? ) ".." ?head ; inline
: parse-effect-var ( first? var name -- var )