( Inline primitive, execute MUF within MUF )
( (C) 2003 Alynna Trypnotk - alynna@kitsunet.net
  Release terms: GNU GPL v2
  http://www.gnu.org/copyleft/gpl.html
  Just tell me where you got me, where your using this program (host/port)
  and distribute your changes under the same terms as you got them [GNU GPL v2] )
( 1. @reg muf-inline=muf/inline
  2. $include $muf/inline
  3. 4 "3 +" inline
  4. ???
  5. Profit!
)
$pubdef }inline }cat inline

: inline[ str:quick -- dirty ]
var dirty
{ "$include $lib/alynna"
  ": quick"
     quick @ 
  "; PUBLIC quick" 
}array quick !
frand ftostr "" "0." subst newprogram dirty !
dirty @ caller owner setown
dirty @ 1 quick @ program_insertlines pop
dirty @ 0 compile not if 
 dirty @ recycle 
 "INLINE: Error compiling MUF code" abort 
 exit
then
depth try
 dirty @ "quick" call
catch
 dirty @ recycle
 "INLINE: " swap strcat abort
 exit
endcatch
dirty @ recycle
; PUBLIC inline
$libdef inline

$pubdef }inline2 }cat inline2

: inline2[ str:quick -- dirty ]
var dirty
{ "$include $lib/alynna"
  ": quick"
     quick @ 
  "; PUBLIC quick" 
}array quick !
frand ftostr "" "0." subst newprogram dirty !
dirty @ caller owner setown
dirty @ 1 quick @ program_insertlines pop
dirty @ 0 compile not if 
 dirty @ recycle 
 nan
 exit
then
depth try
 dirty @ "quick" call
catch
 dirty @ recycle
 nan
 exit
endcatch
dirty @ recycle
; PUBLIC inline2
$libdef inline2

: main inline2 ;