Commit aac1a90e authored by Bernd Paysan's avatar Bernd Paysan

More cleanup of unused things

parent 70d1a320
Pipeline #843 passed with stage
in 10 minutes and 9 seconds
......@@ -3219,8 +3219,6 @@ ghost ?fold-to drop
: opt: ( -- colon-sys ) gstart-xt set-optimizer ;
: comp: ( -- colon-sys ) gstart-xt set-optimizer ;
: to: T : H ;
: defer@: T : H ;
: to-opt: T opt: H compile ?fold-to ;
: defer@-opt: T opt: H compile ?fold-to ;
......
......@@ -157,7 +157,10 @@ Defer check-shadow ( addr u wid -- )
vt, name, vttemplate namevt, named-vt ;
: copy-header, ( xt c-addr u -- ) \ gforth
\G create a header by example for a named word
vt, name, >namevt 2@ , here last ! cfa, ;
vt, name, >namevt 2@ , here last ! cfa, ;
: copy-noname, ( xt -- ) \ gforth
\G create a headerless word by example
vt, cfalign >namevt 2@ , cfa, ;
defer record-name ( -- )
' noop is record-name
......@@ -499,7 +502,7 @@ defer defer-default ( -- )
Header Reveal dodefer,
['] defer-default A, ;
defer@: defer-defer@ ( xt -- )
: defer-defer@ ( xt -- )
\ The defer@ implementation of children of DEFER
>body @ ;
opt: ( xt -- )
......
......@@ -57,7 +57,7 @@ variable backedge-locals
5 constant scopestart
: orig? ( n -- )
dup live-orig <> swap dead-orig <> and abort" expected orig " ;
dead-orig 1+ live-orig within abort" expected orig " ;
: dest? ( n -- )
dest <> abort" expected dest " ;
......@@ -65,6 +65,9 @@ variable backedge-locals
: do-dest? ( n -- )
do-dest <> abort" expected do-dest " ;
: *dest? ( n -- )
do-dest 1+ dest within abort" expected dest/do-dest " ;
: scope? ( n -- )
scopestart <> abort" expected scope " ;
......@@ -89,7 +92,7 @@ variable backedge-locals
dup cs-item? ;
: CS-DROP ( dest -- ) \ gforth
dest? 2drop ;
*dest? 2drop ;
: cs-push-part ( -- list addr )
locals-list @ here ;
......
......@@ -522,35 +522,6 @@ previous
sword dup word-pno-size u>= IF -18 throw THEN
here place bl here count + c! here ;
\ quotations
[ifundef] [:
: int-[: ( -- flag colon-sys )
false :noname ;
: comp-[: ( -- quotation-sys flag colon-sys )
vtsave locals-wordlist last @ lastcfa @ leave-sp @
postpone AHEAD
locals-list @ locals-list off
postpone SCOPE
true :noname ;
' int-[: ' comp-[: interpret/compile: [: ( compile-time: -- quotation-sys flag colon-sys ) \ gforth bracket-colon
\G Starts a quotation
: (;]) ( some-sys lastxt -- )
>r
] postpone ENDSCOPE
locals-list !
postpone THEN
leave-sp ! lastcfa ! last ! to locals-wordlist vtrestore
r> postpone ALiteral ;
: ;] ( compile-time: quotation-sys -- ; run-time: -- xt ) \ gforth semi-bracket
\g ends a quotation
POSTPONE ; swap IF
(;])
ELSE r> THEN ( xt ) ; immediate
[then]
\ multiple values to and from return stack
: n>r ( x1 .. xn n -- r:xn..x1 r:n )
......
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