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

Fix

Browse Source
This commit is contained in:
Brad Nelson
2024-11-15 20:36:22 -08:00
parent e417373461
commit 58205f2738
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/gemini/json.fs
View File

@ -28,6 +28,10 @@ variable inlength
insource @ c@ 1 insource +! -1 inlength +! ; insource @ c@ 1 insource +! -1 inlength +! ;
' ingetchar is getchar ' ingetchar is getchar
s" null" _s aconstant null
s" true" _s aconstant true
s" false" _s aconstant false
s" DICTIONARY" _s aconstant DICT s" DICTIONARY" _s aconstant DICT
: {{ [[ DICT ; : {{ [[ DICT ;
: }} ]] ; : }} ]] ;
@ -44,7 +48,7 @@ s" DICTIONARY" _s aconstant DICT
a2dup i a@ 0 a@ as= if i a@ 1 a@ anip unloop exit then a2dup i a@ 0 a@ as= if i a@ 1 a@ anip unloop exit then
loop loop
a2drop a2drop
_s" " null
; ;
: space? ( ch -- f ) dup 8 = over 10 = or over 13 = or swap 32 = or ; : space? ( ch -- f ) dup 8 = over 10 = or over 13 = or swap 32 = or ;
@ -132,10 +136,6 @@ defer <value>
again again
; ;
s" null" _s aconstant null
s" true" _s aconstant true
s" false" _s aconstant false
:noname :noname
<whitespace> <whitespace>
token case token case