unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-26 11:07:48 +03:00
Code Issues Projects Releases Wiki Activity

Fix builtin link reflection in jit

Browse Source 
It wasn't wrapping the internal Scheme strings into chunked strings.
This commit is contained in:
Dan Doel 2024-03-12 15:36:02 -04:00
parent ced817120e
commit 7ef3ff531b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme-libs/racket/unison/primops-generated.rkt
View File

@ -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