From 58205f27387fe390d2fecc600fda0a8b209d1866 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 15 Nov 2024 20:36:22 -0800
Subject: [PATCH] Fix

---
 examples/gemini/json.fs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/examples/gemini/json.fs b/examples/gemini/json.fs
index b318afd..9202196 100644
--- a/examples/gemini/json.fs
+++ b/examples/gemini/json.fs
@@ -28,6 +28,10 @@ variable inlength
    insource @ c@ 1 insource +! -1 inlength +! ;
 ' ingetchar is getchar
 
+s" null" _s aconstant null
+s" true" _s aconstant true
+s" false" _s aconstant false
+
 s" DICTIONARY" _s aconstant 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
   loop
   a2drop
-  _s" "
+  null
 ;
 
 : space? ( ch -- f ) dup 8 = over 10 = or over 13 = or swap 32 = or ;
@@ -132,10 +136,6 @@ defer <value>
    again
 ;
 
-s" null" _s aconstant null
-s" true" _s aconstant true
-s" false" _s aconstant false
-
 :noname
    <whitespace>
    token case