Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Rename cell to byte, following idiomatic Forth.

  • Loading branch information...
commit 3462ad54166039d924a1d20e62b605668cd1bb20 1 parent ed87d31
@danmey authored
View
8 bootstrap.4k
@@ -155,10 +155,10 @@ comment
| to verbose but will make optimisations later
-| by default we will use byte cells, as it is meant to be 4kb tool
-: cell 1 ;
-: cells cell * ;
-| ref cells
+| by default we will use byte bytes, as it is meant to be 4kb tool
+: byte 1 ;
+: bytes byte * ;
+| ref bytes
View
2  demos/plasma.4k
@@ -62,7 +62,7 @@ bpp 8 / const point
| out screen surface
variable screen
| allot needed stuff for SDL
-create event 20 cells allot
+create event 20 bytes allot
| and for pallete
create pallete 256 rcells allot
| get the linear offset
View
2  demos/sdl.4k
@@ -24,7 +24,7 @@
| SDL constants
27 const Esc
2 const Keydown
-create event 20 cells allot
+create event 20 bytes allot
| SDL structure dispatch
: e>type c@ ;
View
4 demos/szach-mat/gl.4k
@@ -45,7 +45,7 @@ include" demos/robots/imph.4k"
| this for making happy my ans-loving Emacs mode ;) ( but I really like the | for a comment )
: \ postpone | ; immediate
-: hdl ( lib cells -- ) >r sym r> rcells add-handle ;
+: hdl ( lib bytes -- ) >r sym r> rcells add-handle ;
: imports ( -- )
libc " _exit" 1 hdl
libGL " glClear" 1 hdl
@@ -124,7 +124,7 @@ include" demos/robots/imph.4k"
\ out screen surface
variable screen
\ allot needed stuff for SDL
-create event 20 cells allot
+create event 20 bytes allot
\ and for pallete
create pallete 256 rcells allot
View
2  demos/szach-mat/main.4k
@@ -127,7 +127,7 @@ bpp 8 / const point
\ out screen surface
variable screen
\ allot needed stuff for SDL
-create event 20 cells allot
+create event 20 bytes allot
\ and for pallete
create pallete 256 rcells allot
View
2  demos/szach-mat/test/import.4k
@@ -19,7 +19,7 @@
3 ccall: fflush
4 ccall: reent
-: hdl ( lib cells -- ) >r sym r> rcells add-handle ;
+: hdl ( lib bytes -- ) >r sym r> rcells add-handle ;
: libc " libc.so" lib ;
Please sign in to comment.
Something went wrong with that request. Please try again.