FIX: do not use construction syntax when displaying typeset value in help output

Oldes · Oldes · commit b4b165161877 · 2024-07-19T23:45:16.000+02:00
related to: Oldes/Rebol-issues#2159
diff --git a/src/mezz/mezz-help.reb b/src/mezz/mezz-help.reb
@@ -106,7 +106,7 @@ import (module [
 			]
 			any-function? :val [ any [title-of :val spec-of :val] ]
 			datatype?     :val [ get in spec-of val 'title ]
-			typeset?      :val [ to block! val]
+			typeset?      :val [ ajoin [#"[" val #"]"] ]
 			port?         :val [ reduce [val/spec/title val/spec/ref] ]
 			image?        :val [ mold/part/all/flat val max-desc-width]
 			gob?          :val [ return reform ["offset:" val/offset "size:" val/size] ]

Original file line number	Diff line number	Diff line change
`@@ -106,7 +106,7 @@ import (module [`
`106`	`106`	`]`
`107`	`107`	`any-function? :val [ any [title-of :val spec-of :val] ]`
`108`	`108`	`datatype? :val [ get in spec-of val 'title ]`
`109`		`- typeset? :val [ to block! val]`
	`109`	`+ typeset? :val [ ajoin [#"[" val #"]"] ]`
`110`	`110`	`port? :val [ reduce [val/spec/title val/spec/ref] ]`
`111`	`111`	`image? :val [ mold/part/all/flat val max-desc-width]`
`112`	`112`	`gob? :val [ return reform ["offset:" val/offset "size:" val/size] ]`