Difference between revisions of "Temp"

Revision as of 18:10, 12 November 2009

dcop kdesktop KScreensaverIface lock

@@ Line 1: / Line 1: @@
 dcop kdesktop KScreensaverIface lock
-<pre>
-| 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!
-	!
-	;
-</pre>