Fix construct-empty transform
parent
0b4be5f0a2
commit
9cc5f5c78e
|
@ -74,7 +74,7 @@ M: pair (bitfield-quot) ( spec -- quot )
|
|||
dup tuple-size [ <tuple> ] 2curry
|
||||
swap infer-quot
|
||||
] [
|
||||
\ construct-empty declared-infer
|
||||
\ construct-empty 1 1 <effect> make-call-node
|
||||
] if
|
||||
] "infer" set-word-prop
|
||||
|
||||
|
|
Loading…
Reference in New Issue