The Lambda Lab
/
projects
/
forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Decompilation works again.
[forth.jl.git]
/
src
/
lib_9_misc.4th
diff --git
a/src/lib_9_misc.4th
b/src/lib_9_misc.4th
index
a864cbb
..
9078fc4
100644
(file)
--- a/
src/lib_9_misc.4th
+++ b/
src/lib_9_misc.4th
@@
-1,4
+1,4
@@
-\ Miscellaneous core words
+\ Miscellaneous
undefined
core words
: ROLL ( x_u x_u-1... x_0 u -- x_u-1 ... x_0 x_u )
1+ DUP PICK SWAP ( x_u x_u-1 ... x_0 x_u u+1 )
: ROLL ( x_u x_u-1... x_0 u -- x_u-1 ... x_0 x_u )
1+ DUP PICK SWAP ( x_u x_u-1 ... x_0 x_u u+1 )
@@
-24,13
+24,5
@@
then
;
then
;
-: MIN ( n m -- max )
- 2dup - 0> if
- swap drop
- else
- drop
- then
-;
-
: UNUSED ( -- cells )
MEMSIZE HERE - ;
: UNUSED ( -- cells )
MEMSIZE HERE - ;