Browse code
(console.tal) Fixed underflow error on quit
Devine Lu Linvega authored on 17/04/2023 05:07:47
Showing 1 changed files
| ... | ... |
@@ -51,7 +51,7 @@ BRK |
| 51 | 51 |
&eval ( -> ) |
| 52 | 52 |
|
| 53 | 53 |
print-type |
| 54 |
- ;buf ;quit-txt scmp ?quit |
|
| 54 |
+ ;buf ;quit-txt scmp ?&quit |
|
| 55 | 55 |
;yousaid-txt pstr |
| 56 | 56 |
LIT "" #18 DEO |
| 57 | 57 |
;buf pstr |
| ... | ... |
@@ -60,17 +60,17 @@ BRK |
| 60 | 60 |
|
| 61 | 61 |
BRK |
| 62 | 62 |
|
| 63 |
-@print-type ( -- ) |
|
| 63 |
+&quit ( buf* -> ) |
|
| 64 | 64 |
|
| 65 |
- [ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2 |
|
| 65 |
+ #010f DEO |
|
| 66 | 66 |
|
| 67 |
-!pstr |
|
| 67 |
+BRK |
|
| 68 | 68 |
|
| 69 |
-@quit ( buf* -> ) |
|
| 69 |
+@print-type ( -- ) |
|
| 70 | 70 |
|
| 71 |
- POP2 #010f DEO |
|
| 71 |
+ [ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2 |
|
| 72 | 72 |
|
| 73 |
-BRK |
|
| 73 |
+!pstr |
|
| 74 | 74 |
|
| 75 | 75 |
( |
| 76 | 76 |
@|stdlib ) |