Change r|

ueforth/arduino/arduino_server.fs

@@ -1,7 +1,6 @@
 ( Server Terminal )
 : n. ( n -- ) <# #s #> type ;  : ip# dup 255 and n. [char] . emit 256 / ;
 : ip. ( n -- ) ip# ip# ip# 255 and . ;
-: r| ( -- z ) [char] | parse s>z ;
 
 r|
 <!html>
@@ -94,7 +93,7 @@ window.onload = function() {
   prompt.focus();
 };
 </script>
-| constant index-html
+| s>z constant index-html
 
 variable webserver
 20000 constant out-size

ueforth/common/boot.fs

@@ -160,6 +160,7 @@ variable hld
 : ."   postpone s" state @ if postpone type else type then ; immediate
 : z"   postpone s" state @ if postpone drop else drop then ; immediate
 : r"   parse-quote state @ if swap aliteral aliteral then ; immediate
+: r|   [char] | parse state @ if swap aliteral aliteral then ; immediate
 : s>z ( a n -- z ) here >r $place r> ;
 : z>s ( z -- a n ) 0 over begin dup c@ while 1+ swap 1+ swap repeat drop ;