affine/Mycelium
2
1
Fork 0
Code Issues 30 Pull requests Projects 4 Releases Packages Wiki Activity Actions

HyphaeVM Cons instruction prototype
All checks were successful
per-push tests / build (push) Successful in 49s
Details
per-push tests / test-frontend (push) Successful in 33s
Details
per-push tests / test-utility (push) Successful in 35s
Details
per-push tests / test-backend (push) Successful in 29s
Details
per-push tests / timed-decomposer-parse (push) Successful in 34s
Details

Browse source 
This commit implements the Cons instruction with desired behavior.
Tests are yet to be implemented for any instruction, but are coming
soon.

Signed-off-by: Ava Affine <ava@sunnypup.io>
This commit is contained in:
Ava Apples Affine 2025-07-27 07:18:14 +00:00
parent cf626b2bfc
commit 524f79733c
2 changed files with 28 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
hyphae/src/vm.rs
View file

@ -22,9 +22,10 @@ use crate::hmap::QuickMap;
use crate::stackstack::StackStack;
use crate::instr as i;
use crate::util::{Operand, Program, Address};
use crate::heap::{Gc, Datum};
use crate::heap::{Gc, Datum, Cons};
use core::cell::RefCell;
use core::ops::DerefMut;
use alloc::vec;
use alloc::vec::Vec;
@ -475,10 +476,15 @@ impl VM {
},
i::CONS => {
/* CONS BEHAVIOR
* L Datum is not list means create a new standard form list
* L Datum is list then append the second element to the first
*/
let mut l = access!(&instr.1[0]).clone();
if let Datum::Cons(l) = l.deref_mut() {
l.append(access!(&instr.1[1]).clone());
} else {
access!(&instr.1[0], Datum::Cons(Cons(
Some(l),
Some(access!(&instr.1[1]).clone())
)).into());
}
},
_ => {