Lines Matching full:primitive

226 \ constructed, 0 for primitive). The tag value is either 0 to 31 for
252 \ synthetic "no tag" value (primitive, with value -1).
324 \ Check that a given tag is primitive and has the expected value.
325 : check-tag-primitive ( constructed value refvalue -- )
327 	check-primitive ;
329 \ Check that the top value is true; report a "not primitive"
331 : check-primitive ( constructed -- )
346 	read-tag 0x03 check-tag-primitive
395 	read-tag 0x06 check-tag-primitive read-small-value ;
644 	check-primitive
706 	rot read-tag 0x02 check-tag-primitive -rot
732 	0x01 check-tag-primitive