From 9a183b817903c39fc33d38d73bf506ced3e5553e Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 13 Oct 2021 23:15:59 -0700 Subject: support backspace when reading line from keyboard --- 400.mu | 1 + 1 file changed, 1 insertion(+) (limited to '400.mu') diff --git a/400.mu b/400.mu index 539093b8..9baad977 100644 --- a/400.mu +++ b/400.mu @@ -65,6 +65,7 @@ sig write-stream-immutable f: (addr stream byte), s: (addr stream byte) sig read-byte s: (addr stream byte) -> _/eax: byte sig peek-byte s: (addr stream byte) -> _/eax: byte sig append-byte f: (addr stream byte), n: int # really just a byte, but I want to pass in literal numbers +sig undo-append-byte f: (addr stream byte) # take most recent append back out #sig to-hex-char in/eax: int -> out/eax: int sig append-byte-hex f: (addr stream byte), n: int # really just a byte, but I want to pass in literal numbers sig write-int32-hex f: (addr stream byte), n: int -- cgit 1.4.1-2-gfad0