Logiweb(TM)

Logiweb aspects of inst ( " , " , " ) in pyk

Up Help

The "pyk" aspect

Define pyk of inst ( asterisk , asterisk , asterisk ) as "inst ( "! , "! , "! )" end define

The "value" aspect

define value of inst ( t , d , a ) as norm { t is val : { d is val : { a is val : if .not. { t r= quote unifresh ( true , true ) end quote } then { t ref :: { t idx :: { d debug } } } :: inst* ( t tail , d , a ) else LET a [[ t second idx ]] BE { asterisk IN LET asterisk BE { u IN if u != true then inst ( u , d , a ) else error ( d , diag ( "Incomplete unification. Uninstantiated variable:" ) disp ( t ) end diagnose ) } } } } } end define

The pyk compiler, version 0.1.9 by Klaus Grue,
GRD-2007-07-12.UTC:20:11:58.175987 = MJD-54293.TAI:20:12:31.175987 = LGT-4690987951175987e-6