@@ -13,7 +13,7 @@ function psi(shared, list)
1313 const twins = shared [ atom ] ;
1414 const wleft = twins . left ;
1515 const wright = twins . right ;
16- const agent = `\\fan_{this.uniq()} ` ;
16+ const agent = `\\ifan ` ;
1717 const tree = `${ agent } (${ wright } , ${ wleft } )` ;
1818
1919 list . push ( `${ atom } = ${ tree } ` ) ;
@@ -48,8 +48,8 @@ function gamma(obj, root, list)
4848 const body = obj . body ;
4949 const fv = getfv ( body ) ;
5050 const wire = mkwire ( ) ;
51- const agent = ( id in fv ) ? id : "\\erase " ;
52- const tree = `\\lambda (${ agent } , ${ wire } )` ;
51+ const agent = ( id in fv ) ? id : "\\nil " ;
52+ const tree = `\\ilam (${ agent } , ${ wire } )` ;
5353
5454 list . push ( `${ root } = ${ tree } ` ) ;
5555
@@ -60,7 +60,7 @@ function gamma(obj, root, list)
6060 const left = obj . left ;
6161 const right = obj . right ;
6262 const shared = mktwins ( left , right ) ;
63- const agent = `\\apply (${ wright } , ${ root } )` ;
63+ const agent = `\\iapp (${ wright } , ${ root } )` ;
6464
6565 list . push ( `${ wleft } = ${ agent } ` ) ;
6666
@@ -74,7 +74,7 @@ function gamma(obj, root, list)
7474function encode ( generic , term )
7575{
7676 const inconfig = [
77- "\\read_{this.mkhole()}(!print) = root"
77+ "\\walk(\\ read_{this.mkhole()}(!print) ) = root"
7878 ] ;
7979
8080 mkwire = generic . mkwire ;
0 commit comments