Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Make gforth compile again

  • Loading branch information...
commit 6877702e4a0f00568b0f4a668940ec2630fe15d0 1 parent 9beca74
pazsan authored
Showing with 2 additions and 1 deletion.
  1. +1 −0  cross.fs
  2. +1 −1  kernel/cond.fs
View
1  cross.fs
@@ -2057,6 +2057,7 @@ $20 constant restrict-mask
<res> <> ABORT" CROSS: Cannot immediate a unresolved word"
<imm> ^imm @ ! ;
: restrict restrict-mask flag! ;
+: compile-only restrict-mask flag! ;
: isdoer
\G define a forth word as doer, this makes obviously only sence on
View
2  kernel/cond.fs
@@ -195,7 +195,7 @@ IS until-like
I cs-item-size / cs-pick postpone AGAIN
UNLOOP EXIT THEN
cs-item-size +LOOP
- true abort" no BEGIN found" ; immediate compile-only
+ true abort" no BEGIN found" ; immediate restrict
\ counted loops
Please sign in to comment.
Something went wrong with that request. Please try again.