Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fix closure representation in the Nock backend #3105

Merged
merged 10 commits into from
Oct 18, 2024
Merged

Fix closure representation in the Nock backend #3105

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
b723a5e
move anomaGet to the functions library
lukaszcz Oct 16, 2024
7566ca9
closure representation (wip)
lukaszcz Oct 17, 2024
4843ff8
fix curryClosure
lukaszcz Oct 17, 2024
7672f42
fix curry
lukaszcz Oct 18, 2024
4f9bef6
simplify curry
lukaszcz Oct 18, 2024
2d17006
Merge branch 'main' into nock-closures
lukaszcz Oct 18, 2024
c041206
Merge branch 'main' into nock-closures
lukaszcz Oct 18, 2024
0f5955e
add comment
lukaszcz Oct 18, 2024
39c8b76
move code around
lukaszcz Oct 18, 2024
2282b0a
refactor
lukaszcz Oct 18, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 14 additions & 0 deletions src/Juvix/Compiler/Nockma/Language.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -221,6 +221,14 @@ makeLenses ''WithStack
makeLenses ''AtomInfo
makeLenses ''CellInfo

isCell :: Term a -> Bool
isCell = \case
TermCell {} -> True
_ -> False

isAtom :: Term a -> Bool
isAtom = not . isCell

atomHint :: Lens' (Atom a) (Maybe AtomHint)
atomHint = atomInfo . atomInfoHint

Expand Down Expand Up @@ -460,6 +468,12 @@ opAddress txt p = TermCell (txt @ OpAddress #. p)
opQuote :: (IsNock x) => Text -> x -> Term Natural
opQuote txt p = TermCell (txt @ OpQuote #. p)

opTrace :: Term Natural -> Term Natural
opTrace val = OpHint # (nockHintAtom NockHintPuts # val) # val

opTrace' :: Term Natural -> Term Natural -> Term Natural
paulcadman marked this conversation as resolved.
Show resolved Hide resolved
opTrace' msg val = OpHint # (nockNilTagged "opTrace'" # msg) # val

{-# COMPLETE Cell #-}

pattern Cell :: Term a -> Term a -> Cell a
Expand Down
Loading
Loading