alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Shorten revision + drop second ok.

Browse Source 
This seems to somehow work around a see-all crash.
Probably warrants further investigation.
May have to do with large strings.
This commit is contained in:
Brad Nelson
2022-01-07 00:26:28 -08:00
parent 39f4a79de7
commit 17c8b34289
2 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/Makefile
View File

@ -14,7 +14,7 @@
VERSION=7.0.6.10 VERSION=7.0.6.10
STABLE_VERSION=7.0.5.4 STABLE_VERSION=7.0.5.4
REVISION=$(shell git rev-parse HEAD) REVISION=$(shell git rev-parse HEAD | head -c 20)
REVSHORT=$(shell echo $(REVISION) | head -c 7) REVSHORT=$(shell echo $(REVISION) | head -c 7)
OUT = out OUT = out

1
ueforth/common/boot.fs
View File

@ -256,4 +256,3 @@ create input-buffer input-limit allot
: quit begin ['] evaluate-buffer catch : quit begin ['] evaluate-buffer catch
if 0 state ! sp0 sp! fp0 fp! rp0 rp! ." ERROR" cr then if 0 state ! sp0 sp! fp0 fp! rp0 rp! ." ERROR" cr then
prompt refill drop again ; prompt refill drop again ;
: ok ." uEForth" cr prompt refill drop quit ;