define value of meta-sub1 var a is var b where var x is var t end sub as var a tagged guard var x tagged guard var t tagged guard newline tagged if tagged if var b term root equal quote for all objects var u indeed var v end quote then var b first term equal var x else false end if then var a term equal var b else newline tagged if var b term equal var x then var a term equal var t else tagged if newline var a term root equal var b then meta-sub* var a tail is var b tail where var x is var t end sub else false end if end if end if end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,