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

compiler.tree: these constructor words aren't needed

char-rename
Björn Lindqvist 2016-09-04 06:23:50 +02:00
parent 367bff6339
commit a36ac6e435
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/compiler/tree/tree.factor
View File

@ -54,11 +54,6 @@ TUPLE: #shuffle < #renaming mapping in-d out-d in-r out-r ;
TUPLE: #terminate < node in-d in-r ;
: <#terminate> ( in-d in-r -- node )
#terminate new
swap >>in-r
swap >>in-d ;
TUPLE: #branch < node in-d children live-branches ;
: new-branch ( value children class -- node )
@ -137,9 +132,6 @@ TUPLE: #alien-assembly < #alien-node ;
TUPLE: #alien-callback < node params child ;
: <#alien-callback> ( params child -- node )
#alien-callback boa ;
: node, ( node -- ) stack-visitor get push ;
GENERIC: inputs/outputs ( #renaming -- inputs outputs )
@ -163,7 +155,7 @@ M: vector #return, <#return> node, ;
M: vector #enter-recursive, <#enter-recursive> node, ;
M: vector #return-recursive, <#return-recursive> node, ;
M: vector #call-recursive, <#call-recursive> node, ;
M: vector #terminate, <#terminate> node, ;
M: vector #terminate, #terminate boa node, ;
M: vector #if, <#if> node, ;
M: vector #dispatch, <#dispatch> node, ;
M: vector #phi, <#phi> node, ;
@ -173,4 +165,4 @@ M: vector #copy, <#copy> node, ;
M: vector #alien-invoke, #alien-invoke boa node, ;
M: vector #alien-indirect, #alien-indirect boa node, ;
M: vector #alien-assembly, #alien-assembly boa node, ;
M: vector #alien-callback, <#alien-callback> node, ;
M: vector #alien-callback, #alien-callback boa node, ;