xo-procedure: + set-car primitive
This commit is contained in:
parent
5369c82ed5
commit
27736ed0b6
1 changed files with 4 additions and 0 deletions
|
|
@ -109,6 +109,10 @@ namespace xo {
|
|||
(sink,
|
||||
ObjectPrimitives::make_cons_pm(mm, stbl),
|
||||
flags & InstallFlags::f_generalpurpose));
|
||||
ok = ok & (PrimitiveRegistry::install_aux
|
||||
(sink,
|
||||
ObjectPrimitives::make_set_car_pm(mm, stbl),
|
||||
flags & InstallFlags::f_generalpurpose));
|
||||
ok = ok & (PrimitiveRegistry::install_aux
|
||||
(sink,
|
||||
ObjectPrimitives::make_dict_make_pm(mm, stbl),
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue