diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-28 21:34:03 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-28 21:34:03 -0700 |
| commit | a00f83c9446159eaf9ac817dfae5291cb226ab7a (patch) | |
| tree | 90370c1a9233c2da5b3ac99516918ea06b774cc6 /dynamic.e | |
| parent | f8e9891ba4e528a79135af137f66b62c74ab53e7 (diff) | |
swap the parameters to "entry-flags!"
Force-Push: yes Change-Id: I11f3eb1079d27a7306d6ed1e8e4b9fd6fb7d3a4a
Diffstat (limited to 'dynamic.e')
| -rw-r--r-- | dynamic.e | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dynamic.e b/dynamic.e index 55db683..d10a9c4 100644 --- a/dynamic.e +++ b/dynamic.e @@ -293,9 +293,9 @@ ~ We'll be defining a lot of immediate words, so we should set up a terse ~ way to do that. -: make-immediate latest @ dup entry-flags@ 0x01 | entry-flags! ; -: make-hidden latest @ dup entry-flags@ 0x80 | entry-flags! ; -: make-visible latest @ dup entry-flags@ 0x80 invert & entry-flags! ; +: make-immediate latest @ dup entry-flags@ 0x01 | swap entry-flags! ; +: make-hidden latest @ dup entry-flags@ 0x80 | swap entry-flags! ; +: make-visible latest @ dup entry-flags@ 0x80 invert & swap entry-flags! ; ~ Sooner or later we'll want to define recursive words; this one lets us ~ do that. It compiles into a call to the word that's currently being |