diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -147,7 +147,6 @@ decimal : ?comp state @ 0<> if 3 error ! handler execute then ; : ?intr state @ if 4 error ! handler execute then ; - hex : >word ffff and ; : >byte ff and ; @@ -382,8 +381,6 @@ termios TCGETS stdin ioctl ( noname ) swap execute value tty \ DUMP {{{ \ it's designed to look like xxd. i like xxd's hex dumps. hex -\ blorken -\ is my if broken or is this? : dump-colour ( c -- n ) dup 0= if white else dup 0a = if yellow else dup 20 < if red else @@ -391,7 +388,6 @@ hex dup ff < if red else blue then then then then then nip ; -\ also blorken : dump-char ( c -- c' ) dup 20 < if drop [ char . ] literal else dup 7e >= if drop [ char . ] literal then then ; decimal |