aboutsummaryrefslogtreecommitdiff
path: root/j1eforth
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-02-10 12:42:39 +0100
committerDimitri Sokolyuk <demon@dim13.org>2018-02-10 12:42:39 +0100
commite0801f75db8c3a1c53feee026deaf535c6f826e5 (patch)
treeae7304c9c3a248db60ea1fc4c7f2b1157ca3e83a /j1eforth
parent6779ce8c51ed965085805cd5c1b1f7a0e7833ffe (diff)
parent41cd5efd6790fb3d722cfb039014dd5b819ee6be (diff)
Merge branch 'master' of dim13.org:j1
Diffstat (limited to 'j1eforth')
-rw-r--r--j1eforth/j1.4th10
1 files changed, 5 insertions, 5 deletions
diff --git a/j1eforth/j1.4th b/j1eforth/j1.4th
index 4916fd0..06a2ae1 100644
--- a/j1eforth/j1.4th
+++ b/j1eforth/j1.4th
@@ -94,8 +94,8 @@ a: literal
variable tlast
variable tuser
-0001 constant =ver
-0005 constant =ext
+0002 constant =major
+0000 constant =minor
0040 constant =comp
0080 constant =imed
7f1f constant =mask
@@ -871,7 +871,7 @@ t: words
(words)
1-
repeat t;
-t: ver ( -- n ) =ver literal 100 literal * =ext literal + t;
+t: ver ( -- n ) =major literal 100 literal * =minor literal + t;
t: hi ( -- )
cr ."| $literal eforth j1 v"
base @ hex
@@ -892,14 +892,14 @@ there [u] dp t!
[t] ?rx [u] '?key t!
[t] tx! [u] 'emit t!
[t] <\> [u] '\ t!
-[t] $interpret [u] 'eval t!
+[t] $interpret [u] 'eval t!
[t] abort [u] 'abort t!
[t] hi [u] 'boot t!
[t] <name?> [u] 'name? t!
[t] <overt> [u] 'overt t!
[t] <$,n> [u] '$,n t!
[t] <;> [u] '; t!
-[t] <create> [u] 'create t!
+[t] <create> [u] 'create t!
[t] cold 2/ =cold t!
save-target j1.bin