Commit 1ddc3fc0 authored Jun 22, 2012 by bp

dump now unaligned

git-svn-id: https://forth-ev.de/repos/bigforth@2469 3b8d8251-53f3-0310-8f3b-fd1cb8370982

parent 286018ee

idle.fs

+1 −1

Original line number	Diff line number	Diff line
		@@ -32,7 +32,7 @@ Create fds here $400 8 / dup allot erase
		also DOS also

		Create >timeout 0 , 0 ,
		: unix-wait ( n -- ) >us &1000000 um/mod
		: unix-wait ( n -- ) 0 max >us &1000000 um/mod
		( swap &9980 + &10000 / &10000 * swap ) >timeout 2!
		>timeout 0 0 fds [ $400 8 / ] Literal
		0 -skip 3 << select drop ;

lambda.fs

+2 −2

Original line number	Diff line number	Diff line
		\ anonymous definitions in a definition

		: [: ( compile-time: -- orig colon-sys )
		state @ IF loffset @ last @ POSTPONE AHEAD true ELSE false THEN
		state @ IF last @ postpone SCOPE POSTPONE AHEAD true ELSE false THEN
		:noname ; immediate

		: ;] ( compile-time: orig colon-sys -- ; run-time: -- xt )
		POSTPONE ; >r IF ] POSTPONE THEN r> POSTPONE ALiteral last ! loffset !
		POSTPONE ; >r IF ] POSTPONE THEN r> POSTPONE ALiteral postpone ENDSCOPE last !
		ELSE r> THEN ( xt ) ; immediate
		\\\
		: if-else ( ... f xt1 xt2 -- ... )

minos.fs

+3 −0

Original line number	Diff line number	Diff line
		@@ -58,6 +58,9 @@ include sincos.fs
		Synonym /modf /mod
		Synonym /f /
		Synonym modf mod

		\ : till postpone timer@ postpone over postpone - postpone ~~
		\ postpone drop postpone till postpone ~~ ; immediate
		[THEN]
		\ class utility 01jan00py
		[defined] >class" 0= [IF]

tools.fb

+1 −1

File changed.

Preview size limit exceeded, changes collapsed.