mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 11:07:48 +03:00
Fix builtin link reflection in jit
It wasn't wrapping the internal Scheme strings into chunked strings.
This commit is contained in:
parent
ced817120e
commit
7ef3ff531b
@ -319,7 +319,9 @@
|
||||
|
||||
(define (reflect-typelink tl)
|
||||
(match tl
|
||||
[(unison-typelink-builtin name) (unison-reference-builtin name)]
|
||||
[(unison-typelink-builtin name)
|
||||
(unison-reference-builtin
|
||||
(string->chunked-string name))]
|
||||
[(unison-typelink-derived h i)
|
||||
(unison-reference-derived (unison-id-id h i))]))
|
||||
|
||||
@ -328,7 +330,9 @@
|
||||
[(unison-termlink-con r i)
|
||||
(unison-referent-con (reflect-typelink r) i)]
|
||||
[(unison-termlink-builtin name)
|
||||
(unison-referent-def (unison-reference-builtin name))]
|
||||
(unison-referent-def
|
||||
(unison-reference-builtin
|
||||
(string->chunked-string name)))]
|
||||
[(unison-termlink-derived h i)
|
||||
(unison-referent-def
|
||||
(unison-reference-derived
|
||||
|
Loading…
Reference in New Issue
Block a user