Temp

dcop kdesktop KScreensaverIface lock

| newer defer words ...


: 'def ( xt -- )
	~sys.compiling? if
		." compiling" cr
		$15ff 2,	| FF 15 ==> call indirect memory
		, | the offset to call via 
	else
		." running" cr
		.s cr
		@execute
	then
	;
: whatever ." whatever !" cr ;
: def ( <name> -- ) create ['] whatever  ,   ['] 'def class! ;
: >def ( xt <name> -- )
	parse find 0;	| todo: error handling!
	!
	;