6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-02-16 06:30:45 +00:00
Code Issues Projects Releases Wiki Activity

Change \ to also work with stream sources

Browse Source
This commit is contained in:
Philip Zembrod 2024-11-09 11:52:01 +01:00
parent de47bbef54
commit 3052dee6ac
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
8080/CPM/src/vf-core.fth
View File

@ -1054,7 +1054,9 @@ Code "lit RP lhld M E mov H inx M D mov H dcx
: ( ascii ) parse 2drop ; immediate
: .( ascii ) parse type ; immediate
: \ >in @ negate c/l mod >in +! ; immediate
: \ blk @ IF >in @ negate c/l mod >in +!
ELSE #tib @ >in ! THEN ; immediate
: \\ b/blk >in ! ; immediate
: \needs name find nip 0=exit [compile] \ ;