Commit 1ddc3fc0 authored by bp's avatar bp

dump now unaligned

git-svn-id: https://forth-ev.de/repos/bigforth@2469 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 286018ee
......@@ -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 ;
......
\ 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 -- ... )
......
......@@ -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]
......
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment