Use TYPE OF instead of TYPE-OF

TYPE-OF is currently broken.
hostilefork · Feb 18, 2024 · 54e3291 · 54e3291
1 parent 981d45f
commit 54e3291
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/replpad.reb b/replpad.reb
@@ -92,7 +92,7 @@ use [
 
     ; there's still some values that will trip this function up
     form-value: lambda [value] [
-        switch type-of get/any 'value [
+        switch type of get/any 'value [
             null [
                 "<NULL>"
             ]
@@ -117,7 +117,7 @@ use [
                 spaced [
                     "func"
                     mold spec-of :value
-                    switch type-of body-of :value [
+                    switch type of body-of :value [
                         block! [
                             mold body-of :value
                         ]

diff --git a/storage.reb b/storage.reb
@@ -294,7 +294,7 @@ if storage-enabled? [  ; Browser reported that it is storage-capable
                 ]
             ]
 
-            switch type-of port.spec.ref: clean-path port.spec.ref [
+            switch type of port.spec.ref: clean-path port.spec.ref [
                 file! [
                     extend port.spec 'target either find/match port.spec.ref %/tmp/ [
                         "session"
@@ -314,7 +314,7 @@ if storage-enabled? [  ; Browser reported that it is storage-capable
 
         actor: [
             read: lambda [port] [
-                switch type-of port.spec.ref [
+                switch type of port.spec.ref [
                     file! [
                         either storage-exists? port.spec.target form port.spec.ref [
                             any [
@@ -333,7 +333,7 @@ if storage-enabled? [  ; Browser reported that it is storage-capable
             ]
 
             write: lambda [port data <local> dir] [
-                switch type-of port.spec.ref [
+                switch type of port.spec.ref [
                     file! [
                         ensure [binary! text!] data
 
@@ -374,7 +374,7 @@ if storage-enabled? [  ; Browser reported that it is storage-capable
             ]
 
             query: func [return: [<opt> object!] port [port!]] [
-                switch type-of port.spec.ref [
+                switch type of port.spec.ref [
                     file! [
                         let store: port.spec.target
                         let path: form port.spec.ref