diff --git a/replpad.reb b/replpad.reb index 0fb0238..c9a4edf 100644 --- a/replpad.reb +++ b/replpad.reb @@ -149,7 +149,7 @@ use [ name: 'log init: func [return: port][ - [# port.spec.path]: find/match as text! port.spec.ref log:: + [@ port.spec.path]: find/match as text! port.spec.ref log:: assert [find ["info" "log" "warn" "error"] port.spec.path] ] diff --git a/storage.reb b/storage.reb index 69ed706..82c1ab2 100644 --- a/storage.reb +++ b/storage.reb @@ -242,7 +242,7 @@ if storage-enabled? [ ; Browser reported that it is storage-capable if not all [ in port.spec 'ref url? port.spec.ref - [# port.spec.path]: find/match form port.spec.ref storage:: + [@ port.spec.path]: find/match form port.spec.ref storage:: find ["local" "session"] port.spec.path ][ fail "Could not initiate storage port" @@ -332,7 +332,7 @@ if storage-enabled? [ ; Browser reported that it is storage-capable ] ] - write: lambda [port data] [ + write: lambda [port data dir] [ switch type-of port.spec.ref [ file! [ ensure [binary! text!] data @@ -341,7 +341,7 @@ if storage-enabled? [ ; Browser reported that it is storage-capable data: to binary! data ; could use AS ? ] - either exists? first split-path port.spec.ref [ + either exists? [_ @dir]: split-path port.spec.ref [ storage-set port.spec.target form port.spec.ref enbase/base data 64 port ][