From 1c000489c198fca3bd2a15fd5432b278cc5331e8 Mon Sep 17 00:00:00 2001 From: Oldes Date: Sat, 30 Jul 2022 00:02:28 +0200 Subject: [PATCH] FEAT: using `compose` instead of slower `join` --- src/mezz/sys-ports.reb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/mezz/sys-ports.reb b/src/mezz/sys-ports.reb index 0576559696..24d5776f7a 100644 --- a/src/mezz/sys-ports.reb +++ b/src/mezz/sys-ports.reb @@ -30,7 +30,7 @@ make-port*: func [ dir?/check spec [spec: dirize spec 'dir] true ['file] ] - spec: join [ref:] spec + spec: compose [ref: (spec)] ] url? spec [ spec: repend decode-url spec [to set-word! 'ref spec] @@ -65,6 +65,9 @@ make-port*: func [ ; Create the port with the correct scheme spec: port: make system/standard/port [] +; prin "spec: " probe spec +; prin "scheme/spec: " probe scheme/spec +; prin "system/standard/port-spec-head: " probe system/standard/port-spec-head port/spec: make any [scheme/spec system/standard/port-spec-head] spec port/spec/scheme: name port/scheme: scheme @@ -93,6 +96,8 @@ url-parser: make object! [ out: make block! 14 value: none + probe system/catalog/bitsets + ;-- Basic Character Sets digit: system/catalog/bitsets/numeric alpha: system/catalog/bitsets/alpha