FIX: updated for compatibility with the new map syntax introduced in …

…Rebol 3.16.0

.github/workflows/main.yml

@@ -14,10 +14,10 @@ jobs:
     runs-on: ubuntu-latest
     steps:
     - name: Checkout repository
-      uses: actions/checkout@v3
+      uses: actions/checkout@v4
 
     - name: Install Rebol for the test
-      uses: oldes/install-rebol@v3.15.0
+      uses: oldes/install-rebol@v3.17.0
       with:
         product: Bulk
 

httpd.reb

@@ -2,8 +2,8 @@ Rebol [
 	Title:  "HTTPd Scheme"
 	Type:    module
 	Name:    httpd
-	Date:    1-Jan-2024
-	Version: 0.9.1
+	Date:    4-Jun-2024
+	Version: 0.9.2
 	Author: ["Andreas Bolka" "Christopher Ross-Gill" "Oldes"]
 	Exports: [serve-http http-server decode-target to-CLF-idate]
 	Home:    https://github.com/Oldes/Rebol-HTTPd
@@ -216,11 +216,11 @@ sys/make-scheme [
 					clients: make block! 16
 				]
 				subport/extra/config:
-				config: make map! [
-					root:       #[none]
+				config: make map! reduce/no-set [
+					root:        none
 					index:       [%index.html %index.htm]
-					keep-alive: #[true]
-					list-dir?:  #[true]
+					keep-alive:  true
+					list-dir?:   true
 					server-name: "Rebol3-HTTPd"
 				]
 			]
@@ -618,7 +618,7 @@ sys/make-scheme [
 	]
 
 	Awake-Client: wrap [
-		chars-method: #[bitset! #{00000000000000007FFFFFE0}] ; #"A" - #"Z"
+		chars-method: charset [#"A" - #"Z"]
 		;from-method: ["GET" | "POST" | "HEAD" | "PUT" | "DELETE" | "TRACE" | "CONNECT" | "OPTIONS"]
 		chars: complement union space: charset " " charset [#"^@" - #"^_"]
 		CRLF2BIN: #{0D0A0D0A}

server-test.r3

@@ -4,6 +4,7 @@ Rebol [
 	Date:    14-Dec-2023
 	Author: "Oldes"
 	Version: 0.9.0
+	Needs:   3.16.0
 	Note: {
 		To test POST method from Rebol console, try this:
 		```
@@ -40,7 +41,7 @@ serve-http [
 	keep-alive: [30 100] ;= [timeout max-requests] or FALSE to turn it off
 	log-access: %logs/test-access.log
 	log-errors: %logs/test-errors.log
-	list-dir?:  #[true]
+	list-dir?:  #(true)
 	;- Server's actor functions                                                                  
 	actor: [
 		On-Accept: func [info [object!]][